print sort sub { print "Args: @_\n"; @_ }->(qw(one two three))

##</code><code>##

sub byfoo { print "Args: $a $b\n"; @_ }
print sort byfoo(qw(one two three));