my @primes;
NUMBER:
for my $i (2..100) {
    foreach (@primes) {
        if ($i % $_ == 0) {
           # Divides evenly, so not prime.
           next $NUMBER;
        }
    }
    push @primes, $i;
}

foreach (@primes) {
    print "$_\n";
}