perl 怎样合并两个数组，并除去重复的元素？

#直接上代码
#!usr/bin/perl -w
use strict;
my @array1 = (1 … 15);
my @array2 =(5 … 20);

print " @array1\n";
print " @array2\n";

my %h = ();
++$h{$_} foreach ( @array1, @array2 );
my @array3 = sort keys %h;

print “@array3\n”;

运行结果：

#效果与以下等价
#!usr/bin/perl -w
use strict;

my @array1 = (1 … 15);
my @array2 =(5 … 20);
print " @array1\n";
print " @array2\n";

my %h=();
foreach(@array1,@array2){
$h{$_} ++;
}
my @array3 =sort keys(%h);

print “@array3\n”;