quick_sort(grep $_ < $p, @a), $p, quick_sort(grep $_ > $p, @a);