Select Code to Download

use strict;
use warnings;
...
my $lcma = List::Compare->new(\@file1, \@file2);
print $lcma->get_complement; # extra present in file2
print $lcma->get_unique;     # extra present in file1