return +(map{tr/\0// / $len} $ref_seq ^ $test_seq)[0];