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