From 7f1c2ee1209dc2e5390b0042d0d33abf329be83e Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sat, 30 May 2020 13:28:56 +0100
Subject: - Fixed perl solution.

---
 challenge-062/mohammad-anwar/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-062/mohammad-anwar/perl/ch-1.pl b/challenge-062/mohammad-anwar/perl/ch-1.pl
index 396cbda970..b3bce0907e 100644
--- a/challenge-062/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-062/mohammad-anwar/perl/ch-1.pl
@@ -41,7 +41,7 @@ sub sort_data {
         }
     }
     else {
-        foreach (reverse sort { lc $a->[0] cmp lc $b->[0] || lc $a->[1] cmp $b->[1] } @source) {
+        foreach (reverse sort { lc $a->[0] cmp lc $b->[0] || $a->[1] cmp $b->[1] } @source) {
             push @$sorted, join "@", @$_;
         }
     }
-- 
cgit