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>;

[download]

In Section Seekers of Perl Wisdom