my %seen;
my @unique = grep !$seen{$_}++, @array;

##</code><code>##

my (%seen, $seen_undef);
my @unique = grep defined ? !$seen{$_}++ : !$seen_undef++, @array;