my @out = sort(do_nothing(@in));

##</code><code>##

sub do_nothing { wantarray ? @_ : -1 }

##</code><code>##

sub do_nothing { wantarray ? @_ : ($b cmp $a) }

##</code><code>##

my @out = sort &do_nothing(@in);