去掉数组中重复的行[perl]

#注: 来自的帖子，写在这里备忘。

#!/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";