my $ref;
{
    my $x = 42;
    $ref = \$x;
}
print "$$ref\n";