Don't assume a single input.

So, the Perl solution is more inline with the others.

1 files changed, 23 insertions, 21 deletions

diff --git a/challenge-003/abigail/perl/ch-2.pl b/challenge-003/abigail/perl/ch-2.pl
index a6af9168d0..d5c14c4701 100644
--- a/challenge-003/abigail/perl/ch-2.pl
+++ b/challenge-003/abigail/perl/ch-2.pl
@@ -17,28 +17,30 @@ use experimental 'lexical_subs';
 # Run as: perl ch-2.pl < input-file
 #
 
-chomp (my $rows = <>);
-
-#
-# 0-th row
-#
-my @row = (1);
-say "@row";
-
-foreach (1 .. $rows) {
-    #
-    # Calculate the next row from the current row
-    #
-    my @new = map {($_ == 0    ? 0 : $row [$_ - 1]) +
-                   ($_ == @row ? 0 : $row [$_])} 0 .. @row;
-
-    #
-    # Print
-    #
-    say "@new";
+while (my $rows = <>) {
+    chomp $rows;
 
     #
-    # New row becomes current row
+    # 0-th row
     #
-    @row = @new;
+    my @row = (1);
+    say "@row";
+
+    foreach (1 .. $rows) {
+        #
+        # Calculate the next row from the current row
+        #
+        my @new = map {($_ == 0    ? 0 : $row [$_ - 1]) +
+                       ($_ == @row ? 0 : $row [$_])} 0 .. @row;
+
+        #
+        # Print
+        #
+        say "@new";
+
+        #
+        # New row becomes current row
+        #
+        @row = @new;
+    }
 }