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