gistfile1.pl

    my $sorted_results = $results;

    if ( $sortby eq 'reporter' )
    {

        $sorted_results = [
            sort {
                      $order eq 'asc'
                    ? $a->{$sortby} cmp $b->{$sortby}
                    : $b->{$sortby} cmp $a->{$sortby}
            } @$results
        ];

    }
    else
    {

        $sorted_results = [
            sort {
                      $order eq 'asc'
                    ? $a->{$sortby} <=> $b->{$sortby}
                    : $b->{$sortby} <=> $a->{$sortby}
            } @$results
        ];
    }