http://www.perlmonks.org?node_id=1072883


in reply to Re^2: Summing Variables in foreach loop
in thread Summing Variables in foreach loop

A even more normal way would be avoid reduce entirely :)
say sum 0, map count_zeros($cgs,$_), <DATA>;