PERL: Quick Sort