#!/usr/bin/env perl

use strict;
use warnings;
use Set::Scalar;
use List::MoreUtils qw(uniq);
use feature qw(say);

my $string = qw(kizuaheli);
my $s_1 = Set::Scalar->new(uniq(split//, $string));
my $s_2 = Set::Scalar->new(uniq(split//, $string));
say $s_1->is_equal($s_2);
say $s_1 == $s_2;

my $s_3 = Set::Scalar->new(uniq(split//, $string));
my $s_4 = Set::Scalar->new(uniq(split//, ""));
say $s_3->is_equal($s_4);
say $s_3 == $s_4;