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