my @names = sort grep { ! $seen{$_} ++ } @all_names;