but what im trying isn't working right now

That's hardly a complete description of the problem. Printing all the hash entries is essentially trivial with each:

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

ahh that worked thank you, is there a way to use that to print out say like the first 5 elements of the hash?

Yes, although ordering is not a property of untied hashes. So if you just want any 5 elements add a counter:

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

is there a way to use that to print out say like the first 5 elements of the hash?

That would probably not make too much sense, since hashes are not keeping any order.

Update: fixed a typo.

my($words, %everything);
my @countKey = keys %everything;
my @countValue = values %everything;
[download]

Declare a hash; fill two arrays with the keys and values of the empty hash (i.e., no keys or values).

foreach my $word(split /\s+/, $input) {
    $everything {$word}++; 
    $words++;
}
[download]

Put stuff in the hash.

foreach $word(keys %everything) {
    print "$word was seen $everything{$word} times\n";
}
[download]

Print the keys and values of the now non-empty hash.

print start_table({-border=>1});
print Tr(td('Keys'), td('Values'));
print Tr(td(print("@countKey")), td(@countValue));

print end_table;
[download]

Use the contents of the still empty arrays previously filled from what was an empty hash to build a table.