my $a = 'fred'; 
my $b = \$a; 

print $b, ' ', $$b; 
SCALAR(0x3e6c980)   fred

my $c = \$b; 

print $c, ' ', $$c, ' ', $$$c;;
REF(0xf5e58)   SCALAR(0x3e6c980)   fred