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

my $ref;

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

Dump($$ref);

##</code><code>##

SV = IV(0x816a5cc) at 0x814f684
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY,IOK,pIOK)
  IV = 42
SV = IV(0x816a5cc) at 0x814f684
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY,IOK,pIOK)
  IV = 42