c:\@Work\Perl\monks>perl -wMstrict -le
"my @ra = (1, 2, 3);
 my $ar = \@ra;
 my $ref_deref_ref = \@$ar;
 print qq{$ar $ref_deref_ref};
 ;;
 $ar == $ref_deref_ref or die 'not same';
"
ARRAY(0x145ff0) ARRAY(0x145ff0)