Fair enough.

You could go with

while ( my ($word,$count) = each %u_wc) {
    print "$word: $count\n"
}
[download]

Or you could go with print "$_: $u_wc{$_}\n" for keys %u_wc;. And there are many other ways but these will suffice.