use strict;
use warnings;

my @primes;
PRIME: for my $n (2..100) {
		for my $p (@primes) {
				next PRIME unless $n % $p;
		}
		push @primes, $n;
}
print "@primes\n";