while my $item = shift(@foo) {...}