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