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