perl version behaves according to README

diff --git a/uwc.pl b/uwc.pl
index e6b4176..fa5e1e1 100644 (file)
--- a/uwc.pl
+++ b/uwc.pl
@@ -9,4 +9,4 @@ while (<STDIN>) {
        }
 }
 
-print join("\n", sort { $counts{$a} <=> $counts{$b} } keys %counts) . "\n";
+print join("\n", map { "$_ $counts{$_}" } sort { $counts{$a} <=> $counts{$b} || $a cmp $b } keys %counts) . "\n";