sub comp {
    my ($f, $s) = @_;
    return -1 if length ($f) != length ($s);

    local $_ = $f ^ $s;
    return -1 unless tr/\x00/1/c == 2;

    index $_ => "11";
}