From cd67dcfb85d89114cfac5aceda02b23b9dda6f8c Mon Sep 17 00:00:00 2001
From: Mariano Spadaccini <spadacciniweb@gmail.com>
Date: Mon, 29 Sep 2025 13:00:36 +0200
Subject: Cleanup ch-1 in Perl

---
 challenge-341/spadacciniweb/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-341/spadacciniweb/perl/ch-1.pl b/challenge-341/spadacciniweb/perl/ch-1.pl
index 083096b089..cf8b04d173 100644
--- a/challenge-341/spadacciniweb/perl/ch-1.pl
+++ b/challenge-341/spadacciniweb/perl/ch-1.pl
@@ -68,5 +68,5 @@ sub broken_keyboard {
 
     printf "'%s' (%s) -> %d\n", $str,
                                 (join ', ', map { sprintf "'$_'" } @$keys),
-                                (scalar keys %words) - (scalar grep { $_ } values %words);
+                                scalar grep { $_ == 0 } values %words;
 }
-- 
cgit