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