sub my_sort { my $sortname = shift; return sort $SORTS{$sortname} @_; }