But if you do want multimethod dispatch, why immediately starting with a corner case?

Because that quicksort implementation is cool :) I must admit that I haven't read all the apocalypses (I try from time to time, though), so I don't know much about the inner workings of what I'm attempting. I was just curious to see whether that neat Haskell snippet worked in Perl too.