my ($x, $y) = (0,0);
for my $i (1..2)
{
  do {
    if ($i == 1)
    {
      $x;
    }
    else
    {
      $y;
    }
  } = 7;
  print "i = $i, x = $x, y = $y\n";
}