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