%seen = ();
@unique = sort(grep { ! $seen{$_} ++ } @list);