my @array1 = sort getArray1;
my @array2 = sort getArray2;
my ($i1,$i2) = (0,0);
while (defined($array1[$i1]) && defined($array2[$i2])) {
  if ($array1[$i1] eq $array2[$i2]) {
    print "$array1[$i] is repeated at position array1[$i1] and array2[$i2]$/";
    $i1++;
    $i2++;
  }  
  if ($array1[$i1] > $array2[$i2]) { $i2++; }
  else { $i1++; }
}