my @primes;
for my $i (2..100) {
    $primes[$i] = $i;
    foreach (@primes) {
        if ($_ && $i % $_ == 0) {
            $primes[$i] = '';
            last;
        }
    }
}

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

##</code><code>##

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";
}