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