for (my $i = 0; $i < @array1; $i++) {

##</code><code>##

for my $i ( 0 .. $#array1 ) {