...
    my $col_name = $elements[1];

    # don't print
    # just count them
    # print "    $col_name  \n" if ! $seen{$col_name}++;

    $seen{$col_name}++;
}
while ( my ( $col_name, $times_seen ) = each %seen ) {
    print "$col_name: $times_seen\n";
}


##</code><code>##

open (INPUT,"$INFILE") or die "\n$filerror\$INFILE",,1;