Challenge 228 Solutions (Perl)

1 files changed, 4 insertions, 4 deletions

diff --git a/challenge-228/mark-anderson/perl/ch-2.pl b/challenge-228/mark-anderson/perl/ch-2.pl
index 8f20366521..f5be9a5542 100644
--- a/challenge-228/mark-anderson/perl/ch-2.pl
+++ b/challenge-228/mark-anderson/perl/ch-2.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 use v5.32;
-use List::Util      qw/min sum/;
+use List::Util      qw/min/;
 use List::MoreUtils qw/first_index/;
 use Test::More;
 use experimental    qw/signatures/;
@@ -12,14 +12,14 @@ done_testing;
 
 sub empty_array(@a)
 {
-    my @r;
+    my $total;
 
     while(@a)
     {
         my $i = first_index { $_ == min @a } @a;
         @a = (@a[$i+1..$#a], @a[0..$i-1]);
-        push @r, $i+1;
+        $total += $i+1
     }
 
-    sum @r
+    $total
 }