在Perl中，可以使用uniq函数来去除数组中的重复元素。
下面是一个简单的示例：
use List::MoreUtils qw(uniq);
my @array = (1, 2, 3, 2, 1, 4, 5, 4);
my @unique_array = uniq(@array);
foreach my $element (@unique_array) {
print "$element ";
}
输出结果为：1 2 3 4 5
在上面的示例中，uniq函数从数组@array中移除重复的元素，并将结果存储在@unique_array数组中。然后，使用循环遍历@unique_array数组并打印每个元素。
