##
mysub($a[0], $a[1], $a[2], ...);
####
sub sortArray {
return sort @_;
}
my @a = ('e', 'd', 'c', 'b', 'a');
my @sorted = sortArray(@a);
print("@sorted\n"); # a b c d e
# Same thing.
my @sorted = sortArray('e', 'd', 'c', 'b', 'a');
print("@sorted\n"); # a b c d e
####
sub sortArray {
my ($ar) = @_;
@$ar = sort @$ar;
}
my @a = qw( e d c b a );
sortArray(\@a);
print("@a\n"); # a b c d e