Help for this page

Select Code to Download

Select or download this

  DB<12> use List::Util qw/reduce/

...

  DB<15> print "true\n" if any { $_ < 0 } qw /3 12 4 5 7/;
true