#!/usr/bin/perl
my %h;
my @res;  # declare outside the loop
open F, $ARGV[0] or die $!;
while(<F>) {
    @res = split /\|/;
    $h{$res[9]}++;
}
close F;
print "$h{$_}\t$_\n" for keys %h;