#! /usr/bin/perl
use warnings;
use strict;

my $max = shift;
my @primes = (2);
my $i = 3;

while ($i <= $max) {
    my $sqrt = sqrt $i;
    for my $num (@primes) {
        last if ($i % $num == 0);
        push @primes, $i and last if $num > $sqrt;
    }
    $i += 2;
}
print "1, @primes";