# Example of use: @result = sieve(60); sub sieve{ L:for(2..pop){for my $b(2..$_-1){next L if($_%$b<1)}push@_,$_}@_ }