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