diff options
Diffstat (limited to 'challenge-050')
| -rw-r--r-- | challenge-050/mohammad-anwar/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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"; } |