From 0488d77bdd7b93cac777b461eb0d6f502dde8b7c Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <Mohammad.Anwar@yahoo.com>
Date: Wed, 16 Nov 2022 21:50:11 +0000
Subject: Update ch-1.pl

---
 challenge-191/mohammad-anwar/perl/ch-1.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-191/mohammad-anwar/perl/ch-1.pl b/challenge-191/mohammad-anwar/perl/ch-1.pl
index 8f479dd3fb..50e7cfe2fa 100644
--- a/challenge-191/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-191/mohammad-anwar/perl/ch-1.pl
@@ -30,9 +30,9 @@ done_testing;
 # METHOD
 
 sub twice_largest(@list) {
-    my $max = [ sort @list ]->[-1];
+    @list   = sort { $a <=> $b } @list;
+    my $max = pop @list;
     foreach (@list) {
-        next if $_ == $max;
         ($_ * 2 > $max) and return -1;
     }
 
-- 
cgit