for my $a1val (@array1) {
   for my $a2val (@array2) {
      if ($a1val eq $a2val) {
         print "$a1val in both arrays\n";
      }
   }
}