if (defined(my $bar = expensive())) {
   $foo = $bar;
}