$ perl -e " @g=( 1 .. 4 ); $f[0]=()=@g; dd\@f; dd\@g "
[4]
[1 .. 4]