print "$_\n" for grep { $n=$_; $_==1 or ( $_%2 and ! grep { $n%$_==0 }
+ (2..int($n/2))) } (1..100);
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.