#!/usr/bin/env perl

use strict;
use warnings;
use Set::Scalar;
use Path::Tiny;
use Data::Dump;
use feature qw (say);

say path("file01.txt")->slurp_utf8;
say path("file02.txt")->slurp_utf8;

my @s = path("file01.txt")->lines_utf8( { chomp => 1 } );
my @t = path("file02.txt")->lines_utf8( { chomp => 1 } );

dd \@s;
dd \@t;

my $s = Set::Scalar->new(@s);
my $t = Set::Scalar->new(@t);
my $i = $s->intersection($t);

say $i;

path("out.txt")->spew_utf8( map { "$_\n" } @$i );

print path("out.txt")->slurp_utf8;

__END__

karls-mac-mini:sabas karl$ ./sabas.pl
foo
bar
donald

nose
cuke
donald

["foo", "bar", "donald"]
["nose", "cuke", "donald"]
(donald)
donald