while (my ($elem) = $iter->()) { ... }