use List::Util qw(reduce);
sub is_asc { reduce { (defined($a) and $a < $b) ? $b : undef } @_ }
print is_asc(1,2,3,4) ? 1 : 0, "\n";
print is_asc(1,3,2,4) ? 1 : 0, "\n";

1
0