Re: (tye)Re2: (Golf): Sieve of Eratosthenes

[MeowChow]

53 characters:

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

All your t-shirts are belong to me! j/k :-)

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print