From e596c041c32166bdd35de67b38a3e0d7a9ff37f8 Mon Sep 17 00:00:00 2001
From: Mark Yocom <mark@yocom.org>
Date: Sat, 20 Mar 2021 12:11:11 -0700
Subject: [PATCH] Removing unused first() from List::Util import

---
 01 Acey Ducey/perl/aceyducey.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/01 Acey Ducey/perl/aceyducey.pl b/01 Acey Ducey/perl/aceyducey.pl
index b193219e..e2de13df 100644
--- a/01 Acey Ducey/perl/aceyducey.pl	
+++ b/01 Acey Ducey/perl/aceyducey.pl	
@@ -3,7 +3,10 @@
 use strict;
 use warnings;
 
-use List::Util qw(shuffle first);
+# The List::Util module is part of the core Perl distribution.  Using this
+# means we don't need to re-invent the wheel and create a way to shuffle
+# a list.
+use List::Util qw(shuffle);
 
 # Rather than put in a number of print (or say) statements here, we use a
 # "here document".  This is very useful for long strings of text.  In this
@@ -25,7 +28,7 @@ If you do not want to bet, input a 0.  If you want to quit, input a -1.
 
 END_INSTRUCTIONS
 
-my @cards       = (1 .. 13);    # That is, ace through king.
+my @cards       = (1 .. 13);    # That is, Ace through King.
 my $keepPlaying = 1;
 
 GAME: