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