@array = grep { $_ ne '' } @array;