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