Select Code to Download

sub getfile {
   my ($qfn) = @_;
...
my @files = ('file.txt', 'file2.txt' );

my @file_contents = map { [ getfile($_) ] } @files;

sub getfile {
   my ($qfn) = @_;
...
my @files = ('file.txt', 'file2.txt' );

my %file_contents = map { $_ => [ getfile($_) ] } @files;

for my $file (keys %file_contents) {
   print("File $file:\n");
...

   print("\n");
}