From 80607c1d2cef1241874b5aa00f350125bb19b1b3 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 28 Apr 2020 13:34:05 +0100
Subject: - Updated solution by Roger Bell_West.

---
 challenge-058/roger-bell-west/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-058/roger-bell-west/perl/ch-2.pl b/challenge-058/roger-bell-west/perl/ch-2.pl
index 1339ad06b3..6867b5ad95 100755
--- a/challenge-058/roger-bell-west/perl/ch-2.pl
+++ b/challenge-058/roger-bell-west/perl/ch-2.pl
@@ -19,7 +19,7 @@ foreach my $p (@i) {
   }
 }
 
-print join(', ',@n),"\n";
+print join(', ',map {$H[$_-1]} @n),"\n";
 
 foreach my $ti (0..$#n) {
   my $tx=$n[$ti]-1;
-- 
cgit