From a85885eff87ca80ae477117a7d1c1e454cde7416 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 21 Jul 2020 11:19:07 -0400
Subject: removed unneeded "scalar"

---
 challenge-070/walt-mankowski/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-070/walt-mankowski/perl/ch-2.pl b/challenge-070/walt-mankowski/perl/ch-2.pl
index c908d9b6b1..98d26781f5 100644
--- a/challenge-070/walt-mankowski/perl/ch-2.pl
+++ b/challenge-070/walt-mankowski/perl/ch-2.pl
@@ -55,6 +55,6 @@ for my $i (3..$n) {
 say "@S";
 
 sub gray_code($n, @S) {
-    my @S2 = map { "1$_" } reverse map { scalar sprintf "%.*b", $n-1, $_ } @S;
+    my @S2 = map { "1$_" } reverse map { sprintf "%.*b", $n-1, $_ } @S;
     return @S, map { eval "0b$_" } @S2;
 }
-- 
cgit