如何在perl中从两个数组中分离出唯一项和重复项？

use strict;
use warnings;

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

    my %hash;
    my @unique_items;

    foreach my $item (@$array1) {
        $hash{$item} = 1;
    }

    foreach my $item (@$array2) {
        if (exists $hash{$item}) {
            $hash{$item} = 2;  # 重复项
        }
    }

    foreach my $key (keys %hash) {
        if ($hash{$key} == 1) {
            push @unique_items, $key;  # 唯一项
        }
    }

    return (\@unique_items, [grep { $hash{$_} == 2 } keys %hash]);  # 返回唯一项和重复项的数组引用
}

# 示例用法
my @array1 = (1, 2, 3, 4, 5);
my @array2 = (3, 4, 5, 6, 7);

my ($unique_items, $duplicate_items) = separate_arrays(\@array1, \@array2);

print "唯一项：@{$unique_items}\n";
print "重复项：@{$duplicate_items}\n";

唯一项：1 2
重复项：3 4 5