Your way of calling a special sorting routine really isn't the way that feature was designed to be used.

Instead of declaring a sort block that calls your sort routine explicitly, with $a and $b as args, you should write a sub that processes $a and $b directly, and just give the name of the sub to sort. Here's an example:

    sub backwards { $b cmp $a }
sort backwards @a;
[download]