Learn Perl - Project Euler P3

euler3_prime_factorization.pl

#!/usr/bin/perl

use strict;
use warnings;

my @primes;

die "(script waits for exactly one argument)\n" unless(scalar @ARGV == 1);

CANDIDATE: for my $candidate ( 2 .. 10000 ) {
	for my $divisor ( 2 .. sqrt $candidate ) {
		next CANDIDATE if $candidate % $divisor == 0;
	}
	push @primes, $candidate;
}

my $num = $ARGV[0];
my @primeFactors = ();
my $q = $num;

while((scalar grep{$_ == $q} @primes) == 0) {
	ITERATION: foreach(@primes) {
		if($q % $_ == 0) {
			push @primeFactors, $_;
			$q = $q / $_;
			last ITERATION;
		}
	}
}

print "$num: @primeFactors $q\n";