foreach my $index ( 0 .. $#array )