$/=get.words;say sum grep *>0,words.sort[$0-$1..*]