foreach my $key (sort keys %wordfreq) {
    print "$key: $wordfreq{$key}\n";
}