use Math::Prime::XS qw( sieve_primes );
my @primes = sieve_primes(10_000);