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