get~~/\s.+/;$!=+<<words;say first $/>=*,map {sum @$! X>=$_},^401