sub mysort(&@) {
  my $func = shift;
  sort $func @_
}