package Primes;

my $last_prime = 2;
my @primes = (2);

sub sieve {
	my $n = shift;
	push @primes, $n;
	my @copy = @primes;
	return \@copy;
}

1;