for my $i (1..2) { my $v = do { if ($i == 1) { "one"; } else { "not one"; } }; print "i = $i, v = $v\n"; } #### $v = do {if ($i == 1) { "one" } else { "not one" }; $v = $i == 1 ? "one" : "not one";