my %vals_by_type;
while ( <DATA> ) {
    my ( $type, $val ) = split;
    $vals_by_type{ $type }{ total } += $val;
    $vals_by_type{ $type }{ count }++;
}


for my $type ( sort keys %vals_by_type ) {
    my $avg = $vals_by_type{ $type }{ total } / $vals_by_type{ $type }{ count };
    printf "%s %.2f\n", $type, $avg;
}