c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'foo';
 $x = \$x;
 print $x;
 print $$x;
 print $$$x;
 print $$$$x;
"
REF(0x1df2a9c)
REF(0x1df2a9c)
REF(0x1df2a9c)
REF(0x1df2a9c)

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'foo';
 my $y = \$x;
 $x = $y;
 print $x;
 print $$x;
 print $$$x;
 print $$$$x;
"
REF(0x601cec)
REF(0x601cec)
REF(0x601cec)
REF(0x601cec)

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $w = 'foo';
 my $x = \$w;
 my $y = \$x;
 my $z = \$y;
 ;;
 print $z;
 print $$z;
 print $$$z;
 print $$$$z;
 ;;
 dd $z;
"
REF(0x54c11c)
REF(0x432734)
SCALAR(0x4326f4)
foo
\\\"foo"