@prime = (1,2); map { push(@prime,$_) if (($_ % 2) != 0) } (2 .. 100); [download]
regards Franklin
In reply to Easy way to list prime numbers 1 to 100 by l.frankline