使用perl去除数组中的重复无素，方法一般为两种，一种是使用grep函数，一种是转换为hash表。
一、使用grep函数
二、使用转换hash代码
使用grep那种方法并不是很好懂，我尝试解释一下，未必说得清楚或者正确。其实就是把数组的每个元素作为一个hash表的key，＋＋之后第一个元素出现的时候值就是1，如果第二次出现这个值就是2了。其实就是统计了数组每个元素的出现次数，少于2次的就放到新的数组当中。
我写了个比较好懂的代码，和使用grep方法的代码原理大致相同，但是又不完全一样。
代码稍长，效率如何没有测试，因为我只是小规模的应用，不涉及到这些。不过友好成都应该好一些吧，比较容易看。同样是把数组的元素作为hash的key，如果是首次出现就push到新数组中。所有代码都是在RadHat AS3 + Perl 5.8.0环境下测试的。
或
#!/usr/bin/perl
use strict;
my %hash;
my @array = (1..10,5,20,2,3,4,5,5);
#grep 保存符合条件的元素
@array = grep { ++$hash{$_} < 2 } @array;
print join(" ",@array);
print "n";