my @primes=();

OUTER:
for ( my $i=2; @primes < 100; $i++) {
    for my $p (@primes) {
        if ($i % $p == 0) {
            next OUTER;
        }
    }
    push @primes, $i;
}
print "@primes";