$ perl -e " our $snot = 66; push @snot, \$snot; local $snot = 77; push @snot, \$snot; print qq[$_ $$_\n] for @snot "
SCALAR(0x99aa64) 66
SCALAR(0x3f8cc4) 77