$/=+<<words;say +grep $1-($+=*)>=0,sort $/[2..*]