Set::Scalar->new(qw(11 14))->intersection( Set::Scalar->new(qw(4 5 6 7 8 9 10 11 12)) )->members # 11