Just did this the other day...

I just did it a few hours ago in Re: providing a callback routine to sort ( $::a $::b ), the OPs syntax is valid  sort $subref @args