while (my $result = thatroutine()) { return $result; }