my @array = qw/ foo bar baz foo quux baz /;

print map "$_\n", keys %{ {map {$_ => 1} @array} };

__output__

foo
quux
baz
bar