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)