- or download this
Filename1 Item1 - Answer
Filename2 Item1 - Answer
Filename1 Item2 - Answer
- or download this
my %files;
$files{Filename1} = [ 'Item1 - Answer' ];
push @{ $files{Filename1} }, 'Item2 - Answer';
...
- or download this
use strict;
use warnings;
...
# ...
close $out_fh;
}