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

##</code><code>##

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

##</code><code>##

  my @foo = 1 .. $x;

##</code><code>##

  foreach (@foo) { ... }