$FH = "a scalar";
@FH = qw/an array/;
%FH = (a => 'hash');
open(FH, "somefile.txt") or die("dang - $!");
for(qw/SCALAR ARRAY HASH IO/) {
  print $glob, "{$_} = ', *{$glob}{$_}, $/;
}
print while <$glob>;

__output__

*main::FH{SCALAR} = SCALAR(0x80fd44c)
*main::FH{ARRAY} = ARRAY(0x80fd464)
*main::FH{HASH} = HASH(0x80fd4a0)
*main::FH{IO} = IO::Handle=IO(0x80fd4dc)
foo
bar
baz
quux