- Fixed perl solution.

1 files changed, 1 insertions, 1 deletions

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 "@", @$_;
         }
     }