Re: To Findout Prime number

[hipowls]

It is difficult to comment without knowing what the function is supposed to do. As far as I can tell it prints out all the numbers less than 1,000 that are not divisible by 2, 3, 5 or 7.

Now just for fun

use 5.010_000;

say for grep { ( $_ % 2 && $_ % 3 && $_ % 5 && $_ % 7 ) } 2 .. 1_000;