{
  my (%names);
  foreach (@Person) {
    $names{$_}++; 
  }
  @Person = keys(%names);
}