my @items  = qw( foo bar bar baz quux baz );
my @unique = local(*_) && grep(!$_{$_}++, @items);
print "$_\n" for @unique;