# devel.pl
use Devel::Peek;
my $a = undef;
Dump $a;
my $b = \$a; 
Dump $a; # note the reference count for $a