while( defined( my $a = $iter->() ) ) {
    # do something with $a
}

#note: $iter->() returns a useful value, or undef