Select Code to Download

my $openfile = '';
foreach my $file (@file) {
...
   print FILE $content;
}
close(FILE) if $openfile;

for my $file (sort {$a->{filename} cmp $b->{filename}} @files) {
 ...
}

foreach my $file (@files) {
   my $filename ...
...
foreach my $fh (keys %fh) {
   close($fh{$fh});
}