Select Code to Download

    ...
    my $col_name = $elements[1];
...
while ( my ( $col_name, $times_seen ) = each %seen ) {
    print "$col_name: $times_seen\n";
}

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