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