my($score) = map {tr/\0// / $len} $ref_seq ^ $test_seq;
return $score;