my $globref = \*GLOB;
*$globref = \1;
print $globref, "\n"; # prints GLOB(0x.......)