sub is_ascending {
  $_ != shift and return for sort {$a <=> $b} @_;
  1;
}