my $r = if ($foo) then {"bar"} else {"baz"};

##</code><code>##

my $r = for (1, 2, 3) {$_ + 4};