chomp(my @names = <DATA>);
my %seen;
foreach (@names) {
  $seen{$_}++;
}
@names = grep {1 < $seen{$_}} @names;