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