sort keys {
   map  { $_ => 1 }
   grep { ! m{(.).*\1} }
   map  { join q{}, sort split m{} }
   glob $globStr };