如何进行简单的Perl哈希等价比较？

#!/usr/bin/perl

use strict;
use warnings;

my %hash1 = (
    key1 => "value1",
    key2 => "value2",
);

my %hash2 = (
    key1 => "value1",
    key2 => "value2",
);

# 比较哈希的键和值
my $is_equal = 1;
foreach my $key (keys %hash1) {
    if (!exists $hash2{$key} || $hash1{$key} ne $hash2{$key}) {
        $is_equal = 0;
        last;
    }
}

if ($is_equal) {
    print "哈希1和哈希2相等\n";
} else {
    print "哈希1和哈希2不相等\n";
}

# 比较哈希的键的数量和值的数量
if (keys %hash1 == keys %hash2 && values %hash1 == values %hash2) {
    print "哈希1和哈希2的键值对数量相等\n";
} else {
    print "哈希1和哈希2的键值对数量不相等\n";
}