perl -anE "$c{$_}++ for @F}{ ++$top<11 && say qq|$c{$_}\t$_| for sort {$c{$b}<=>$c{$a}} keys %c" YOUR-FILE.txt