Hi, read the two files names in two different arrays and compare the array using List::Compare module. It will give the presence of extra names in both the files as below.

use strict;
use warnings;
use List::Compare;
my @file1 = qw(name1 name2 name3 name4 name5 name6 name7 name8 name9 n
+ame10);
my @file2 = qw(name1 name2 name3 name4 name5 name6 name7 name8 name9 n
+ame10 name11);

my $lcma = List::Compare->new(\@file1, \@file2);
print $lcma->get_complement; # extra present in file2
print $lcma->get_unique;     # extra present in file1
[download]