for -> foreach, fix die interpolation msg

1 files changed, 1 insertions, 1 deletions

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";
 }