Select Code to Download

Bob Joe Steve
Joe Bob Mark
Joe Steve Fred
Fred Fred Joe

use 5.12.4;
use strict;
use warnings;
...
foreach my $key (sort hashDescend (keys(%wordcount)) {
    print "Word: $key \t\t\t\t\t\t Count: " . ($wordcount{$key}) . "\n
+";
}