Perl's sort function sits on top of C's native qsort function which is an implementation of quicksort. O(n*log(n))!