#!/usr/bin/perl -w

use strict;

my %nums;

while (<>) {
    my @cols = split("\t", $_);

    $nums{$cols[4]}++;
}

my $left = 10;

for my $k ( sort { $nums{$b} <=> $nums{$a} } keys %nums ) {
    print "$k - $nums{$k}\n";
    last if $left-- == 0;
}