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