my $iter = foo( $x );

    while ( my $row = $iter->() ) {
        # do something
    }