my @data1 = grep length, map {chomp; $_} <$in1>;