From 8949db7c665d7b4e0a0ad5a673e0634daf94e44b Mon Sep 17 00:00:00 2001
From: "Jaldhar H. Vyas" <jaldhar@braincells.com>
Date: Mon, 27 Dec 2021 02:01:16 -0500
Subject: Arrgh too many mistakes today. Fixed syntax in Perl solution for
 challenge 2.

---
 challenge-144/jaldhar-h-vyas/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-144/jaldhar-h-vyas/perl/ch-2.pl b/challenge-144/jaldhar-h-vyas/perl/ch-2.pl
index 0fe4866b04..4278139bf1 100755
--- a/challenge-144/jaldhar-h-vyas/perl/ch-2.pl
+++ b/challenge-144/jaldhar-h-vyas/perl/ch-2.pl
@@ -39,7 +39,7 @@ while (scalar @ulams < 10) {
     for my $candidate (@candidates) {
         $freq{$candidate}++;
     }
-    @candidates = grep { %freq{$_} < 2 } keys %freq;
+    @candidates = grep { $freq{$_} < 2 } keys %freq;
 
     @candidates = grep { $a = $_; !grep { $_ == $a } @ulams; } @candidates;
 
-- 
cgit