There are two ways i do this depending on Perl version. For older versions I just use a reference to the filehandle glob instead of the glob itself, i.e.:

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

This is necessary to get open to write the fh back, although these days a more common idiom for the same thing is:

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