my $ref;
{
    my $var = 5;
    $ref = \$var;
}

# prints 5
print $$ref;