mysub(@a); #### 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