perl -MO=Deparse,-l tst_glob.pl
#line 1 "tst_glob.pl"
$\ = "\n";
#line 3 "tst_glob.pl"
$n = 123;
#line 5 "tst_glob.pl"
$gr = \*n;

...