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