my %seen = ();

while (<DATA>) {
    if ($seen{$name}++) {
        push @names, $name;
    }
}