say reduce { $a + count_zeros($cgs,$b) } 0, <DATA>;