local $" = "+";
printf "%s  %.2f\n", $_, (eval "@{$HoA{$_}}") / @{$HoA{$_}} for keys %HoA;