my $AoH = [ sort {
    $a->{under} <=> $b->{undef}
    || $a->{order} <=> $b->{order}
} @$sqldata ];