sub return_if_true ($value) {
    if $value {
        leave where => caller(1), value => $value;
    }
}

# and then just do:

return_if_true(result_of_big_long_calculation(...));