my $sorted = [ sort {
    $a->{under} <=> $b->{under}
    || $a->{order} <=> $b->{order}
} @$aoh ];