use strict;
use warnings;

my %gene_count;

while (<>) {
	my @rows = split ' ', $_, 20;
	$gene_count{ $row[18] }++ if $row[18];
}

print "$_ => $gene_count{$_}\n" for sort keys %gene_count;