my%h;for (^get) ->$a {get;get~~m/\s\d+/;%h{$_}-=$/for get.words};map {put (.value,-.key)if $_},%h.antipairs.sort[^10]