# $cnt += popcount($row->[$iy] & $BM_MIDDLE);
   $cnt += sprintf('%b', $row->[$iy] & $BM_MIDDLE) =~ tr/1//;