$ perl -e '@a=(1,2); $foo=\@a; push@a,\@a;print $foo, $/, $a[-1]'
    ARRAY(0x980028)
    ARRAY(0x980028)