On 05/27/2010 05:28 PM, Andrei wrote: > perl -le 'my @a = (-2..2); while (shift @a){}; print @a;' ~ % perl -le 'my @a = (-2..2); while (@a){shift @a}; print @a;'