Select Code to Download

$seen{$col_name}++;

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

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