for -> foreach, fix die interpolation msg

1 files changed, 1 insertions, 1 deletions

diff --git a/010/ch2.pl b/010/ch2.pl
index a5a37f5..1bde152 100755
--- a/010/ch2.pl
+++ b/010/ch2.pl
@@ -42,7 +42,7 @@ sub jaro {
 
     # Count transpositions
     my $t = 0;
-    for my $k (keys %matches) {
+    foreach my $k (keys %matches) {
         $t += 1 if $k != $matches{$k};
     }