my $x = \*FH;
print "plain glob ref: <$x>\n";
# prints: plain glob ref: <GLOB(0x1d6c660)>
open ($x, "<","somefile") or warn "error\n";
print "open FH ref: <$x>\n";
# prints: open FH ref: <GLOB(0x1d6c660)>

##</code><code>##

my $x = \*FH;
x $x
# prints: 
#0  GLOB(0x1d6c408)
#   -> *main::FH
open ($x, "<","somefile") or warn "error\n";
print "open FH ref: <$x>\n";
# prints: 
0  GLOB(0x1d6c408)
   -> *main::FH
         FileHandle({*main::FH}) => fileno(6)