get;$_=words;say 30*grep * <=.sum/10,@$_