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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

print end_table;