while(    (defined $parts_a[$j] && defined $parts_b[$j])
            && ($parts_a[$j] eq $parts_b[$j])                    ) {