$out->{'CR+'}->{ $_ }++ foreach @{ $rec->{CR} };