my @words = map { split(' ', $_) } ;