Quicksort in Perl - doing it the functional way!