Hello john.tm,

If I understand you correctly, you just need to change this line:

$seen{$col_name}++;
[download]

to this (replacing the ... with the appropriate “certain string”):

$seen{$col_name}++ if $col_type eq ...;
[download]

Then replace the second while loop with:

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

Hope that helps,