use strict;
use warnings;

my @primes = qw/2 3 5 7/;

for my $i ( 10 .. 1_000_000 ) {
    for my $j ( @primes ) {
        if ( $j > sqrt $i ) {
            push @primes, $i;
            last;
        }
        next if $i % $j;
        last unless $i % $j;
    }
}

print "$_\n" for @primes;