$seen{$col_name}++;

##</code><code>##

$seen{$col_name}++ if $col_type eq ...;

##</code><code>##

print "     $_\t\t:  $seen{$_}\n" for sort keys %seen;