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

##</code><code>##

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