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

##</code><code>##

for (my $index = 0; $index < $#array; ++$index) {
    ...
}