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