From 9aac261865a31ddcb118781bf40284a7ea9da109 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 21 Sep 2020 23:46:01 +0200
Subject: Iterate over several lines of input.

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

diff --git a/challenge-079/abigail/perl/ch-1.pl b/challenge-079/abigail/perl/ch-1.pl
index a2a8d27818..02b473bcf3 100644
--- a/challenge-079/abigail/perl/ch-1.pl
+++ b/challenge-079/abigail/perl/ch-1.pl
@@ -45,7 +45,7 @@ sub bits ($n) {
       }
 }
 
-say bits (<>) % $BIG_NUM;
+say bits ($_) % $BIG_NUM for <>;
 
 
 __END__
-- 
cgit