Select Code to Download

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

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

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

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

use strict;
use warnings;
...

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