@a = grep { $_ ne '' } @data;