note tilly And almost a decade later I was randomly looking at this, and realized that it could be made shorter still. <code> sub sieve3 { grep{@_[map$a*$_,2..@_/($a=$_)]=0if$_[$_]>1}@_=0..pop } </code> Never give up on that last optimization! 81695 81769