foreach my $i (0 .. @array - 1) {...}