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