From dacce603e3660db207679e6dcb3a32666b9af0b3 Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Sun, 27 Feb 2022 18:36:37 -0500
Subject: removed unused array

---
 challenge-153/adam-russell/perl/ch-1.pl | 1 -
 1 file changed, 1 deletion(-)

diff --git a/challenge-153/adam-russell/perl/ch-1.pl b/challenge-153/adam-russell/perl/ch-1.pl
index 3e5b1e9a27..3104e9006b 100644
--- a/challenge-153/adam-russell/perl/ch-1.pl
+++ b/challenge-153/adam-russell/perl/ch-1.pl
@@ -9,7 +9,6 @@ use constant UPPER_BOUND => INT_MAX/1000;
 sub left_factorials_sieve{
     my($n) = @_;
     my @sieve = (0 .. UPPER_BOUND);
-    my @left_factorials;
     my $x = 2;
     {
         my @sieve_indices = grep { $_ <= $x || $_ % $x == 0 } 0 .. @sieve - 1; 
-- 
cgit