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