$employee{$col} = undef; #### print LIST $_, "\n" for grep defined, values %employee;