Merge pull request #9632 from mattneleigh/pwc257

Pwc257

1 files changed, 2 insertions, 2 deletions

diff --git a/challenge-257/mattneleigh/perl/ch-1.pl b/challenge-257/mattneleigh/perl/ch-1.pl
index 1b0fe44a88..4c0d3487b2 100755
--- a/challenge-257/mattneleigh/perl/ch-1.pl
+++ b/challenge-257/mattneleigh/perl/ch-1.pl
@@ -46,7 +46,7 @@ sub determine_ordinal_rank{
 
     # Build a table with the unique input integers as
     # keys and their relative ordinal rank as values
-    my %order_table = map(
+    my %rank_table = map(
         { $_ => $rank++ }
         uniq(sort({ $a <=> $b } @ARG))
     );
@@ -55,7 +55,7 @@ sub determine_ordinal_rank{
         # Make a list of the ordinal ranks of each given
         # integer
         map(
-            $order_table{$_},
+            $rank_table{$_},
             @ARG
         )
     );