From 3afe7a05b939802e7783cb0f474bb2a8c723a28d Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Sat, 15 Aug 2020 13:33:23 -0400
Subject: iterate through @a instead of using indices

---
 challenge-073/walt-mankowski/perl/ch-2.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-073/walt-mankowski/perl/ch-2.pl b/challenge-073/walt-mankowski/perl/ch-2.pl
index 21a09903fe..e48e92f66f 100644
--- a/challenge-073/walt-mankowski/perl/ch-2.pl
+++ b/challenge-073/walt-mankowski/perl/ch-2.pl
@@ -33,9 +33,9 @@ my @A = @ARGV;
 my @output = (0);
 my $min = $A[0];
 
-for my $i (1..$#A) {
-    push @output, $min < $A[$i] ? $min : 0;
-    $min = $A[$i] if $A[$i] < $min;
+for my $x (@A[1..$#A]) {
+    push @output, $min < $x ? $min : 0;
+    $min = $x if $x < $min;
 }
 
 say "@output";
-- 
cgit