>perl -E "my @x; say qq|Orig=|,\@x; say qq|Copy:|,$_=\(@x)"
Orig=ARRAY(0xdb84d8)
Copy:SCALAR(0xed8c78)