while ( my ($key, $value) = each(%HASH) ) {
        print "<td>$key</td><td>$HASH{$key}->{COUNT}</td><tr>\n";
    }