my $ref;
{
my $foo=10;
$ref=\$foo;
print "foo=$foo\n";
print "ref=$ref ($$ref)\n";
}
print "foo=$foo\n";
print "ref=$ref ($$ref)\n";