for(1..<>){
	<>;
	<>=~$";
	map$h{$_}+=$',glob<>;
}
print"$_ $h{$_}\n"for(sort{$h{$b}-$h{$a}||$a cmp$b}keys%h)[0..9]