for my $ch ( @r ) {
$exists = 1;
for my $cn ( @statistic_column_names ) {
if ( $ch->{$cn} and not $ch->{$cn} eq $h->{$cn} ) {
if ( ( not defined $ch->{$cn} && defined $h->{$cn} )
|| ( defined $ch->{$cn} && not defined $h->{$cn} )
|| ( $ch->{$cn} ne $h->{$cn} ) )
{
$exists = 0;
last;
}
-