$!=get.words[1];say +grep ($!-=*)>=0,words.sort