in reply to Re: Sieve of Eratosthenes Golf?
in thread Sieve of Eratosthenes Golf?

Unneeded variable declaration, 9 stroke penalty!
$x=pop;for(2..$x){$x{$_}||=0||do{$m=2*$_;{$x{$m}=1;($m+=$_)<=$x&&redo}}}grep!$x{$_},keys%x

In Section Seekers of Perl Wisdom