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