use strict; use warnings; use List::Compare; my @file1 = qw(name1 name2 name3 name4 name5 name6 name7 name8 name9 name10); my @file2 = qw(name1 name2 name3 name4 name5 name6 name7 name8 name9 name10 name11); my $lcma = List::Compare->new(\@file1, \@file2); print $lcma->get_complement; # extra present in file2 print $lcma->get_unique; # extra present in file1