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