@selected_data = qw(13 76 90 13 77 100 76 300 13 65 400 74 89 34 65);
@all_data = qw(1 5 2 8 12 87 13 76 98 77 89 90 11 65 43 74 43 32 34 67);
$total = 0;
foreach $sub_select (@selected_data) {
	foreach $sub_all (@all_data)	{
		if($sub_select eq $sub_all) {
			$total++;
		}
	}
}

print "Count -> $total\n";