Help for this page
my $ref; { ... } print "foo=$foo\n"; print "ref=$ref ($$ref)\n";
foo=10 ref=SCALAR(0x80f14ec) (10) foo= ref=SCALAR(0x80f14ec) (10)