use Set::Scalar ;

my $s = Set::Scalar->new( 'a', 'b', 'c', 'd' ) ;
my $t = Set::Scalar->new( 'a', 'e', 'c', 'o' ) ;

my $u = $s->intersection( $t ) ;

print $u, "\n" ;