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