$x = \$y; $y = *_; print $x; $y = 5; print $x;

##</code><code>##

GLOB(0x813bda0)
SCALAR(0x813bda0)