#! perl -w
use strict;

for my $fname ( glob 'names.*' ) {
    my %uniq;
    open my $fh, '<', $fname or die $!;
    while( <$fh> ) {
        print unless exists $uniq{ $_ };
        $uniq{ $_ } =  1;
    }
}