note MeowChow 53 characters: <code> sub sieve2 { grep{@_[map$a*$_,2..@_/($a=$_)]=0if$_[$_]>1}@_=0..pop } </code> All your t-shirts are belong to me! j/k :-) <pre> <a href="/index.pl?node=MeowChow"> MeowChow </a> s aamecha.s a..a\u$&owag.print</pre> 81695 81750