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"; }