Simple snipet to sort a array and see how many operations were necessery. To keep the perl mindset, it is done in a rather unconventional way.