Select Code to Download

foreach(@file){
    open(my $fh, "<", "$file") or die "Could not open $file because $!
+\n";
...
    close($fh);
}
#memory used for @data gets garbage collected here

{
    my @data;
...
       close($fh);
    }
}