while (my ($key, $value) = each %everything) {
    print "<tr><td>$key</td><td>$value</td></tr>";
}