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