%string_1 = map{$_ =>1} @string1;

@intersection_of_the_2_arrays = grep( $string_1{$_}, @string2 );
	
$number_of_similar_words = scalar(@intersection_of_the_2_arrays);