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