use strict;
use warnings;
use Devel::Peek;

my $ref;

if ((my $fred = 42), 1)
{
    $ref = \$fred;
    Dump($$ref);
}

Dump($$ref);