my $i = 0;
for my $ele (@array) {
   ...
   $i++;
}

##</code><code>##

for my $i (0..$#array) {
   my $ele = $array[$i];
   ...
}