Perl:在HoA中显示元素差异

use strict;
use warnings;

sub display_array_diff {
    my ($array1, $array2) = @_;

    my %hash1;
    my %hash2;

    # 构建哈希表
    foreach my $element (@$array1) {
        $hash1{$element}++;
    }

    foreach my $element (@$array2) {
        $hash2{$element}++;
    }

    # 检查差异
    foreach my $element (keys %hash1) {
        my $count1 = $hash1{$element};
        my $count2 = $hash2{$element} || 0;

        if ($count1 != $count2) {
            print "元素 $element 在数组1中出现 $count1 次，在数组2中出现 $count2 次\n";
        }
    }

    foreach my $element (keys %hash2) {
        my $count1 = $hash1{$element} || 0;
        my $count2 = $hash2{$element};

        if ($count1 != $count2) {
            print "元素 $element 在数组1中出现 $count1 次，在数组2中出现 $count2 次\n";
        }
    }
}

my @array1 = (1, 2, 3, 4, 5);
my @array2 = (3, 4, 5, 6, 7);

display_array_diff(\@array1, \@array2);