Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @list = (rand(1), rand(1), rand(1));
...

for: all satisfy the condition
grep: none fail the condition