I still don't get why you are dereferencing the FileHandle object. It works just fine as is (maybe depends on perl version?). I don't understand what goes on when you dereference the FileHandle object, but this code seems to demonstrate that you get a different GLOB every time, which I would think is not what you want:

use strict;             
use warnings;           
use FileHandle;         
                        
my $fh = new FileHandle;
my $FH1 = *{$$fh};      
my $fh1 = \$FH1;        
my $FH2 = *{$$fh};      
my $fh2 = \$FH2;        
print "$fh1\n";         
print "$fh2\n";         
############
output:
GLOB(0x20043704)
GLOB(0x200436f8)
[download]