perl -lane'
    $d{$F[0]}[0]++
    $d{$F[0]}[1]+= $F[1];
}{
    $, = "\t";
    print $_, $d{$_}[0], $d{$_}[1]/$d{$_}[0] for keys %d;
'