my $x = 10;
  for my $i (1 .. $x) {
    $x = 1;
    print $i;
  }