while ( my $value = some_sub() ) {
    # do something
    my $other_value = some_sub();
}