[perl] chmod + refactor

4 files changed, 4 insertions, 6 deletions

diff --git a/perl/p1.pl b/perl/p1.pl
index e13aa31..e13aa31 100644..100755
--- a/perl/p1.pl
+++ b/perl/p1.pl
diff --git a/perl/p2.pl b/perl/p2.pl
index ec85ec1..ec85ec1 100644..100755
--- a/perl/p2.pl
+++ b/perl/p2.pl
diff --git a/perl/p3.pl b/perl/p3.pl
index 3caebf2..77324e1 100644..100755
--- a/perl/p3.pl
+++ b/perl/p3.pl
@@ -14,16 +14,14 @@ my @primes;
 my $last_factor;
 
 for my $i (2 .. $n) {
-	if ($i > $n) {
-		last;
-	}
+	last if ($i > $n);
 	if (all { $i % $_ != 0 } @primes) {
-		push(@primes, $i);
-		if ($n % $i== 0) {
-			$n = $n / $i;
+		if ($n % $i == 0) {
+			$n /= $i;
 			$last_factor = $i;
 			redo;
 		}
+		push(@primes, $i);
 	}
 }
 print "$last_factor\n";
diff --git a/perl/template.pl b/perl/template.pl
index 4f2ec78..4f2ec78 100644..100755
--- a/perl/template.pl
+++ b/perl/template.pl