#!usr/bin/perl
open(IN,"<$ARGV[0]");
open(IN2,"<$ARGV[1]");
my @array;
my @array2;
my @array3;
my $i=0;
my $l=0;
my $g=0;
my $counter=0;
     while(<IN>){
	if ($_=~/^([A-Z][0-9]\w{3,3}\d)\n/){
	#	print "$i $1","\n";
		$array[$i]=$1;
		$i++;	
}       
}
     for (my $j=0;$j<=$#array;$j++){
    	#print	"$j $array[$j]","\n";
    }

    	for (my $j=0;$j<$#array;$j++){
    		if($array[$j] eq $array[$j+1]){
    			splice(@array,$j+1,1);}
    		else{}
    }

    		
         while(<IN2>){
    	if ($_=~/^([A-Z][0-9]\w{3,3}\d)\n/){
    	#	print "$l $1","\n";
    		$array2[$l]=$1;
    		$l++;	
    }

    }
    #print @array2;

    	for (my $j=0;$j<$#array2;$j++){
    		if($array2[$j] eq $array2[$j+1]){
    			splice(@array2,$j+1,1);}
    		else{}
    }

    #print @array2;

    for (my $j=0;$j<=$#array;$j++){
            for (my $k=0;$k<=$#array2;$k++){
    		 if($array[$j] eq $array2[$k]){
    			$counter++;}
    		 }
    }
    #print scalar(@array),"\n";
    print "hits  ",$counter,"\n";
    print "$ARGV[0]  ", scalar(@array),"\n";
    print "$ARGV[1]   ", scalar(@array2),"\n";
    print @array3,"\n";