better array name for inside &proper_divisors

1 files changed, 6 insertions, 6 deletions

diff --git a/challenge-156/cheok-yin-fung/perl/ch-2.pl b/challenge-156/cheok-yin-fung/perl/ch-2.pl
index ef83ce1222..7dccf5706e 100644
--- a/challenge-156/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-156/cheok-yin-fung/perl/ch-2.pl
@@ -48,15 +48,15 @@ sub factorization {
 
 sub proper_divisors {
     my @prime_factors = factorization($_[0]);
-    my @pf = (1);
+    my @pd = (1);
     while (scalar @prime_factors > 0) {
         my $n = shift @prime_factors;
-        my @temp_pf = @pf;
-        push @pf, $n*$_ for @temp_pf;
+        my @temp_pd = @pd;
+        push @pd, $n*$_ for @temp_pd;
     }
-    @pf = sort {$a<=>$b} uniqint @pf;
-    pop @pf;    # remove the largest factor -> the number itself
-    return @pf;
+    @pd = sort {$a<=>$b} uniqint @pd;
+    pop @pd;    # remove the largest factor -> the number itself
+    return @pd;
 }