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