1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-071/mohammad-anwar/perl/ch-2.pl b/challenge-071/mohammad-anwar/perl/ch-2.pl
index 9147e3ad90..54f858bb4a 100755
--- a/challenge-071/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-071/mohammad-anwar/perl/ch-2.pl
@@ -91,9 +91,9 @@ sub create_linked_list {
     my $tail = $node;
 
     while (@$list) {
-        my $node = Node->new(v => pop @$list);
-        $tail->p($node);
-        $tail = $node;
+        my $_node = Node->new(v => pop @$list);
+        $tail->p($_node);
+        $tail = $_node;
     }
 
     print $node->show, "\n";