如果我們有一個數組@array=(1,2,2,3,3,3,4,4,4,4)，我們怎麼去除陣列中的冗餘元素呢？我們可以利用hash與grep()做到這一點。
use strict;
my @array=(1,2,2,3,3,3,4,4,4,4);
my %hash; #定義一個空hash
my @result=grep {++$hash{$_}==1} @array; #去除冗餘元素
print “@result”;

grep能遍歷@array中的元素(用$_表示)。以@array中元素2為例，第一次$_==2時，++$hash{$_}==1；二次$_==2時，++$hash{$_}==2。所以、$hash{1}只能為1，$hash{2}可能值為1和2，$hash{3}的值可能為1，2和3，依次類推。
grep {++$hash{$_}==1} @array 篩選出了@array中的元素第一次出現時的情況，當此元素再次出現時，就被過濾掉了。

如果grep {++$hash{$_}==2 } @array 能篩選出什麼元素呢？答案是2，3，4。也就是至少出現過兩次的元素，因為$hash{1}沒有機會等於2的。

上述內容可以用於任何用途並且不必表明出處。水平有限，歡迎批評指正，共同進步。