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