note that sort does exactly what quick sort does (for some versions of Perl anyway). Unless you are doing this as a learning exercise Perl's built in sort is generally a much better choice than rolling your own.