foreach my $i (...list...) {
   ...
}

##</code><code>##

for (...; ...; ...) {
   ...
}

##</code><code>##

for my $i ($x..$y) {
   ...
}

##</code><code>##

foreach my $i (reverse ...list...) {
   ...
}

##</code><code>##

use strict;
use warnings;

print("$]\n");  # 5.008008

# Don't inline these. It will cause the
# memory to be allocated at compile time.
my $min = 0;
my $max = 10_000_000;

for (        $min .. $max) { print(":"); <STDIN>; last; }  # 2.2MB
for (reverse $min .. $max) { print(":"); <STDIN>; last; }  # 239MB