do { push(@prime,$_) if ($_ % 2) } for (2 .. 100);