if (my $val = some_func()) {
    # ...
}