#!/usr/bin/perl
        my $count={};
        while (<>) {
                chop;
                @F = split;
                @J=split(/\:/,$F[2]);
                if ( $J[0] =~ /[0-9][0-9]/ ){ $count{$J[0]}++};
        }
        foreach $key(sort(keys(%count))){
            print "$key\t$count{$key}\n";
        }