get~~/\s.+/;say +grep {($/-=$_)>=0},sort +<<words