sub mysort {
        my ($direction) = @_;

        ( $hash{$a}{$orderby} <=> $hash{$b}{$orderby}
          ||
          $hash{$a}{$orderby} cmp $hash{$b}{$orderby})
        *
        ($direction eq "DESC" ? -1 : 1);

}