配列同士の重複要素があるかどうか知りたい。

同僚の人に上記の要件満たせるようなモジュール無い?って聞かれたので、ぱっとググって見つけたのがList::Compare。
ふーむ。これだけのためにオブジェクト作るのかあ。ふーむ。これくらいなら自前で書くかなあ。

use strict;
use warnings;
use feature qw(say);

use List::Compare;

my $lc = List::Compare->new([qw(aa bb cc dd)], [qw(bb cc ff gg)]);

say $_ for $lc->get_intersection;