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