sub rankSums {
    my( $aRef, $bRef ) = @_;
    my( $aSum, $bSum ) = (0) x 2;
    my( $a, $b ) = (0) x 2;
    my $rank = 1;
    while( $a < @$aRef && $b < @$bRef ) {

        if( $aRef->[ $a ] < $bRef->[ $b ] ) {
            $aSum += $rank++;
            ++$a;
        }
        elsif( $aRef->[ $a ] > $bRef->[ $b ] ) {
            $bSum += $rank++;
            ++$b
        }
        else {
            my $d = 2;
            my( $aSaved, $bSaved ) = ( $a, $b );
            ++$d, ++$a while $a < $#{ $aRef } && $aRef->[ $a ] == $aRef->[ $a + 1 ];
            ++$d, ++$b while $b < $#{ $bRef } && $bRef->[ $b ] == $bRef->[ $b + 1 ];
            my $s = sum( $rank .. $rank + $d - 1 ) / $d;
            $aSum += $s * ( $a - $aSaved + 1 );
            $bSum += $s * ( $b - $bSaved + 1 );
            $rank += $d;
            ++$a, ++$b;
        }
    }
    $aSum += $rank++ while $a++ < @{ $aRef };
    $bSum += $rank++ while $b++ < @{ $bRef };

    return $aSum, $bSum;
}