Select Code to Download

my @primes;
for my $i (2..100) {
...
    next unless $_;
    print "$_\n";
}

my @primes;
NUMBER:
...
foreach (@primes) {
    print "$_\n";
}