The hardest part is inverting the portions of the key which must sort descending.

If the entire key is descending, you don't need to invert it; just using sort { $b cmp $a } is good enough. sort will recognize that specific code and not actually call the code block.