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