From 14c1b36f7f06697b1e8452ce0beea583fc320c36 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 10 Jun 2020 17:56:41 +0100
Subject: - Minor improvement.

---
 challenge-064/mohammad-anwar/perl/ch-1.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/challenge-064/mohammad-anwar/perl/ch-1.pl b/challenge-064/mohammad-anwar/perl/ch-1.pl
index a9bcec01e6..9fad851e35 100644
--- a/challenge-064/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-064/mohammad-anwar/perl/ch-1.pl
@@ -3,13 +3,11 @@
 use strict;
 use warnings;
 
-my $M = [
-    [ 1, 2, 3 ],
-    [ 4, 5, 6 ],
-    [ 7, 8, 9 ],
-];
+my $matrix = [[ 1, 2, 3 ],
+              [ 4, 5, 6 ],
+              [ 7, 8, 9 ]];
 
-print sprintf("%s\n", join " →  ", @$_) for find_path($M, 0, 0);
+print sprintf("%s\n", join " →  ", @$_) for find_path($matrix, 0, 0);
 
 sub find_path {
     my ($matrix, $row, $col, $path) = @_;
-- 
cgit