Le module List::Compare fait cela tres bien, il permet de
comparer des tableaux, les intersections, les différences ...
use List::Compare;
my $lc = List::Compare -> new('-u',\@array_1,\@array_2);
@array = $lc -> get_intersection;
@array = $lc -> get_unique;