@array = grep /\S/, @array;