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

##</code><code>##

over (@array) as ($el; $i) {
  ...
};

##</code><code>##

over (@array) as ($el_a, $el_b; $i, $j) {
  ...
};