From 7c01a045f6e20e1aae3c4b63bcc8ddcbefceb63f Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 2 Mar 2020 17:48:42 +0000
Subject: - Further more tidy up.

---
 challenge-050/mohammad-anwar/perl/ch-1.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'challenge-050')

diff --git a/challenge-050/mohammad-anwar/perl/ch-1.pl b/challenge-050/mohammad-anwar/perl/ch-1.pl
index 171dd731f4..c2607e7c58 100644
--- a/challenge-050/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-050/mohammad-anwar/perl/ch-1.pl
@@ -43,8 +43,8 @@ sub print_intervals {
     my ($key, $intervals) = @_;
 
     print "$key: [";
-    foreach (@$intervals) {
-        print sprintf(" [%d, %d]", $_->[0], $_->[1]);
+    foreach my $i (@$intervals) {
+        print sprintf(" [%d, %d]", $i->[0], $i->[1]);
     }
     print " ]\n";
 }
-- 
cgit