Select Code to Download

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

my @list = (...list...);
for my $i (0..$#list) {
   my $item = $list[$i];
   ...
}