@array = grep $_, @array;