use warnings;
use strict;
use List::Compare;

my @lines1 = qw( test1 test2 test3 );
my @lines2 = qw( test1 test2 test4 );

my $lc = List::Compare::new( \@lines1, \@lines2);