@sum[$a] += $i; end {emitp @sum }
