for ( my $i = 0; $i <= $#array - 1; ++$i )