my @words = map { split " ",$_ } <DATA>;