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