foreach my $i (0..$#array1);