use Modern::Perl;
use List::Compare;

my @a = 1 .. 10;
my @b = 5 .. 14;

my $lc = List::Compare->new(\@a, \@b);

say $lc->get_unique;

##</code><code>##

1234