use Data::Dumper;
print Dumper($hComData);

##</code><code>##

    my ($chn, $ex) = sort ($hEntry->{chain}, $hEntry->{exists});