if (my $x = x(f(), \&g)) {
   ...
}

##</code><code>##

sub x {
   my ($x, $g) = @_;
   $x && $g->($x)
}