$what = *x;
print $what, "\n";

$what = \*x;
print $what, "\n";

*main::x
GLOB(0x10082ad88)