my $sorted = [ sort { 

                  $a->{level} <=> $b->{level}
                                 || 
                  [$a->{menuname} cmp $b->{menuname}
                  
                  } @$sqldata ];