Select Code to Download

my %temp_for_compare;

...
      print "$val in both arrays\n";
   }
}

for my $a1val (@array1) {
   for my $a2val (@array2) {
...
      }
   }
}

my @tmpArray1 = sort @array1;
my @tmpArray2 = sort @array2;
...
        shift @tmpArray2;
    }
}