And almost a decade later I was randomly looking at this, and realized that it could be made shorter still.

sub sieve3 {
    grep{@_[map$a*$_,2..@_/($a=$_)]=0if$_[$_]>1}@_=0..pop
}
[download]

Never give up on that last optimization!