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

##</code><code>##

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