my $a; 
my $b = \$a; 

print $b; 
SCALAR(0x3e6c920)

my $c = \$b; 
print $c; 
REF(0x3e6c8f0)

print \\$a;;
REF(0x3e6c980)