Added a quadratic selection sort in Perl