my %seen;
my @sorted =
    sort
    grep !$seen{$_}++,
    @unsorted;