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