my @words1 = map {chomp; $_} ; my @words2 = map {chomp; $_} ;