#!/usr/bin/perl -w

my @primes = (2);

NEW_NUMBER:
for my $num (3 .. 1000) {
	foreach (@primes) { next NEW_NUMBER if $num % $_ == 0 }
	print "Found prime $num\n";
	push @primes, $num;
}