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

##</code><code>##

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