уникальный в первом

use List::MoreUtils qw(uniq);
 
my @words = qw(foo bar baz foo zorg baz);
my @unique_words = uniq @words;
Handsome Hummingbird