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