use HTML::Entities qw( encode_entities );

for my $id (
    sort { $HASH{$a}{COUNT} <=> $HASH{$b}{COUNT} }
    keys(%HASH)
) {
    print "<tr>",
          "<td>", encode_entities($id),               "</td>",
          "<td>", encode_entities($HASH{$id}{COUNT}), "</td>",
          "</tr>\n";
}