From f4518189be2179201f48e86521a962549ff74532 Mon Sep 17 00:00:00 2001
From: Richard Kojedzinszky <krichy@tvnetwork.hu>
Date: Fri, 26 Sep 2014 09:43:33 +0200
Subject: [PATCH] perl version behaves according to README

---
 uwc.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/uwc.pl b/uwc.pl
index e6b4176..fa5e1e1 100644
--- 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";
-- 
2.1.4