my @ref_elems = split //, $ref_seq;
my @test_elems = split //, $test_seq;
my $score = 0;
for (my $i = 0; $i < $len; $i++)
{
    $score += $ref_elems[$i] eq $test_elems[$i];
}