如何在Perl中找到两个数组的不区分大小写的唯一元素？

#!/usr/bin/perl
use strict;
use warnings;

my @array1 = ('Apple', 'Banana', 'Orange', 'Grape');
my @array2 = ('banana', 'Pineapple', 'orange', 'watermelon');

# 将数组中的所有元素转换为小写
my @array1_lower = map { lc } @array1;
my @array2_lower = map { lc } @array2;

# 找到两个数组中的唯一元素
my %unique_elements;
foreach my $element (@array1_lower, @array2_lower) {
    $unique_elements{$element} = 1;
}

# 输出唯一元素
foreach my $element (keys %unique_elements) {
    print "$element\n";
}

apple
banana
grape
orange
pineapple
watermelon