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