This smells like a homework question, in other words PerlCool has been asked to write a sort function.

The only hint I will give, is to point out the cmp operator which returns -1, 0, or +1 to compare to scalars, and the spaceship operator <=> which does the same with numbers.