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