>perl -wle"@a=(1,2); for (@a) { pop @a; print qq{<$_>} }"
<1>

>perl -wle"@a=(1,2); for ((),@a) { pop @a; print qq{<$_>} }"
<1>
Use of freed value in iteration at -e line 1.