use Modern::Perl;
use Set::Scalar;

my $first_word  = 'CHARLIE ROOT';
my $second_word = 'HARRY NODE';

my $first  = Set::Scalar->new( split //, $first_word );
my $second = Set::Scalar->new( split //, $second_word );

say $first - $second;    # difference between $first and $second
say $second - $first;    # difference between $second and $first

say $first % $second;    # symmetric difference