How about...

use strict;

# Set up
my @dups_ary = qw(a b c b d e f c b g h);

# Do it
my %temp_hash;
undef @temp_hash{@dups_ary};
my @unique_ary = keys %temp_hash;

# Prove it
print "@unique_ary\n";
[download]