Since we're comparing notes, here's the Mathematica version:

Reverse[SortBy[Tally[StringSplit[#]], #[[2]] &]][[;; 10, 1]] &