Select Code to Download

foreach my $file (@nbdc_files){
...
    push @nbdc_filehandles, \*FILE;
     # etc.
}

foreach my $file (@nbdc_files){
    open my $fh, "./$nbdc_dir/$file" || die "Can't open ./$nbdc_dir/$f
+ile";
    push @nbdc_filehandles, $fh;
     # etc.
}