Select Code to Download

...
for my $file (@files) {
...
    close $fh;
}
...

...
my @handles = map { open my $fh, '<', $_; $fh } @files;
...

close $_ for grep { $_->opened() } @handles;
...