sub isAscending{ 
    $_[0] < $_[1] and shift() or return 0 while @_>1; 
    return 1;
}

##</code><code>##

sub isAscending{ 
    ( $_[0] < $_[1] or return 0 ), shift while @_ > 1; 
    return 1;
}