sub is_asc {
    ( undef, my @lagged) = @_;
    $_ >= shift or return 0 for @lagged;
    return 1;
}