From 20182e2e72d7bc6956faf6acc5e8d52eff64b3a9 Mon Sep 17 00:00:00 2001 From: Guillermo Ramos Date: Fri, 5 Jul 2019 23:43:12 +0200 Subject: for -> foreach, fix die interpolation msg --- 009/ch2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to '009') diff --git a/009/ch2.pl b/009/ch2.pl index d20def5..fa2a1b0 100755 --- a/009/ch2.pl +++ b/009/ch2.pl @@ -54,7 +54,7 @@ my @points = @ARGV; my $ranks = rank($rank_type, @points); # Display rankings -for my $rank (sort (keys %$ranks)) { +foreach my $rank (sort (keys %$ranks)) { my @positions = @{$ranks->{$rank}}; print "$rank. @positions\n"; } -- cgit v1.2.3