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