#!/usr/bin/env perl

use strict;
use autodie;
use warnings qw< FATAL all >;
use IO::Handle;
use Scalar::Util qw< openhandle >;

#Initialise variables
my $debug = 1;
my $fh = new IO::Handle;
my $line = "";
my $section = "";
my $filename = "";

while ($line = <>) {
    chomp ($line);
    print STDERR "DEBUG: Reading '$line'\n" if $debug;
    if ($line =~ /^(\d+)$/) {
        $section = $1 ;
        $filename = "$section.txt";
        print STDERR "DEBUG: Starting section $section\n" if $debug;
        close $fh if $fh->opened();
        open ($fh, ">>$filename") or die "Couldn't open file $filename, $!"
    } 

    # Print to the file if we have a filehandle except for the 
    # section number itself
    if ($line !~  /^(\d+)$/) {
        if ( $fh->opened() ) {
            print STDERR "DEBUG: Printing to $filename\n" if $debug;
            print $fh $line."\n" ;
        }
    }
}


close $fh if fileno($fh);

exit 0;
