for my $i (0..$#array) {
   ...
}