Select Code to Download

sub mergeSort {    #Takes reference to array, index to sort on, beginn
+ing index, and end index
    my ($aref, $index, $begin, $end)=@_;    
...
#Sort by 1st section of interface CX/x/ux
mergeSort(\@data, 11, 0, scalar(@data));

sub ASort {
...
ASort(\@data, 11);