wrote yet another quick sort, this time a lot less messy
Just trying out a little perl