Well, the my notwithstanding, that's how we do it in Perl... I mean, unless you can capture the list beforehand (and so be sorting something other than a named array), that's how to sort an array in Perl. There's no current in-place mechanism, although you could write it easily:

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

# and

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

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;