my $self = ref $_[0] ? shift : undef;
my($arg1,$arg2,$arg3)=@_;

##</code><code>##

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