An incidental side point. In your made-up example, the chorus of responses would be to just use Perl's built-in sort.

Which, on modern Perls, isn't a quicksort by default.

Abigail