my @Array1 = qw( A B C D );
my @Array2 = qw( J C T A );

my $count=0;

for ( @Array1 )
{
	$count++ if $_ ~~ @Array2;
}

print "Count = $count\n";