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)