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

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