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