比较两个字符串，并在perl中查找不匹配和匹配并对它们进行计数

#!/usr/bin/perl

use strict;
use warnings;

my $string1 = "Hello";
my $string2 = "Hella";
my $match_count = 0;
my $mismatch_count = 0;

my @chars1 = split("", $string1);
my @chars2 = split("", $string2);

for my $i (0 .. $#chars1) {
    if ($chars1[$i] eq $chars2[$i]) {
        $match_count++;
    } else {
        $mismatch_count++;
    }
}

print "匹配计数：$match_count\n";
print "不匹配计数：$mismatch_count\n";

匹配计数：4
不匹配计数：1