perl -e '@{ $_; @_ } = 1'
Bizarre copy of ARRAY in leave at - line 1.

##</code><code>##

perl -e '@{ @_ } = 1'