Perl数组去除重复元素

直接上代码

my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); 
my %count; 
my @uniq_times = grep { ++$count{ $_ } < 2; } @array;