my @b = uniq @a;

my %seen;
my @b = grep !$seen{$_}++, @a;