my $primes = primes( 1_000_000_000 );

Sieve of Eratosthenes   4.879 seconds
Sieve of Xuedong Luo    3.751 seconds

There are 50,847,534 prime numbers between 1 and 1 billion.