gistfile1.pl

    my $sorted_results = [
        sort
        {
            ( $a, $b ) = ( $b, $a ) if $order eq 'desc';
            $a->{$sortby} <=> $b->{$sortby} || $a->{$sortby} cmp $b->{$sortby}
        } @$results
    ];