perl -anle"++$h{$F[0]}[0];$h{$F[0]}[1]+=$F[1]}
{print qq[$_\t$h{$_}[0]\t],$h{$_}[1]/$h{$_}[0] for keys %h" munge.txt
4       3       42
1       3       195.333333333333
3       3       27.6666666666667
2       1       20