#!/usr/bin/perl
use strict;
use warnings;

my $filename = $ARGV{0};

open( my $fh => $filename) || die "Cannot open $filename: $!";
my %gene_count;

while(my $line = <$fh>) {
        my @row = split("\t",$line);
        $gene_count{ $row[18] } = ++;
}
close($fh);