# Sort the callers array in-place
    @$set = sort{ $b<=>$a } @$set;

    return $sumA >= $sumB 
        ? ([ $sumA, sort{ $b<=>$a } @partA ], [ $sumB, sort{ $b<=>$a } @partB ])
        : ([ $sumB, sort{ $b<=>$a } @partB ], [ $sumA, sort{ $b<=>$a } @partA ])
    ;
}