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