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