Select Code to Download

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

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