foreach my $i (0 .. $#arraya) {