@array = grep {defined $_} @array;