From b5b7ec8a3b815c77b14a2e14882cb81b02a879c6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Sommrey?=
 <28217714+jo-37@users.noreply.github.com>
Date: Mon, 8 Jun 2020 22:30:09 +0200
Subject: [PATCH] improved solution for challenge 059-2

---
 challenge-059/jo-37/perl/ch-2.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/challenge-059/jo-37/perl/ch-2.pl b/challenge-059/jo-37/perl/ch-2.pl
index 6bd296e10a..85ead44c0d 100755
--- a/challenge-059/jo-37/perl/ch-2.pl
+++ b/challenge-059/jo-37/perl/ch-2.pl
@@ -6,10 +6,11 @@
 
 use strict;
 use warnings;
+use List::Util qw(reduce);
 
+my @bits = map {pack 'Q', $_} @ARGV;
 my $sum;
-while (defined (my $x = shift)) {
-	my $bits = pack 'Q', $x;
-	$sum += unpack '%64b*', $bits ^ $_ foreach map {pack 'Q', $_} @ARGV;
+while (defined (my $bits = shift @bits)) {
+	$sum += unpack '%64b*', $bits ^ $_ foreach @bits;
 }
 print $sum, "\n";