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