if (all(5, 10, 15) > any (3, 8, 12, 20))
  {  print "Success!\n" }

##</code><code>##

  if (all(@input) =~ /^\d+$/) { print "Got all whole numbers!\n" }

##</code><code>##

  if (all(qr/^\d+$/, @input)) { ... }

##</code><code>##

use Junction qw(any all);
if (any(@list) > 0) { print "we have at least one postive number!\n"; }
if (all(@list) > 0) { print "even better - they're all positive numbers!\n"; }