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