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