my @clean = grep { $_ ne '' } @data;