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