my ($array1ref, $array2ref) = @_;
my @array1 = @$array1ref;
my @array2= @$array2ref;
my $array1count = scalar @array1;
my $array2count = scalar @array2;
my $count = 0;

for (my $array1index = 0; $array1index < $array1count; $array1index++) {
 for (my $array2index = 0; $array2index < $array2count; $array2index++) {
   if ($array1[$array1index] eq $array2[$array2index]) {
       $count++;
   }
 }
}

print "$count";
print " matches found";
print $/;