Select Code to Download

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

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