sub simple_sort {
  @_[0 .. $#_] = sort @_;
}

# and

sub complex_sort (&@) {
  my $c = shift;
  @_[0 .. $#_] = sort $c @_;
}