perl -e '@arr = qw|a b c d|; $ref = \@arr; $ref2 = \@arr; print qq|$ref\t$ref2\n|;'

##</code><code>##

ARRAY(0x82b1ee4)	ARRAY(0x82b1ee4)