Select Code to Download

my %all_files;

...
    $all_files{$file} = \@data;
    close($fh);
}

foreach my $file (@files) {
    open(my $fh, "<", $file;
    my @data = <$fh>;
    close($fh);
}

{
   my @file;
...
       undef @data; # Frees @data's content.
   }
}