在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數組并打印每個元素。
