PERL: Merge Sort Inverstion Times