c:\@Work\Perl\monks>perl -wMstrict -le
"my $ar_a = [ qw(a b c d) ];
 my $ar_b = $ar_a;
 ;;
 print 0+$ar_a;
 print 0+$ar_b;
 ;;
 print 'is equal' if $ar_a == $ar_b;
"
22632908
22632908
is equal