for (my $i = 0; $i < @array; $i++) {...}

##</code><code>##

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

##</code><code>##

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