From 5a36dc73838d80b807db4f9d5d158431a30959df Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Fri, 30 Aug 2019 00:49:16 +0100
Subject: - Updated solution by Arne Sommer.

---
 challenge-023/arne-sommer/perl5/ch-3.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-023/arne-sommer/perl5/ch-3.pl b/challenge-023/arne-sommer/perl5/ch-3.pl
index c6656f574c..6b00bb150b 100755
--- a/challenge-023/arne-sommer/perl5/ch-3.pl
+++ b/challenge-023/arne-sommer/perl5/ch-3.pl
@@ -15,7 +15,7 @@ my $json = get('https://www.poemist.com/api/v1/randompoems');
 
 my $data = from_json($json);
 
-for ($count)
+for (0 .. $count -1)
 {
   last unless $data->[$_];
     
-- 
cgit