#!/usr/bin/perl
# your code goes here
use strict;
use warnings;
my @array1 = split(/\s+/, "20.08.2018 21.08.2018 22.08.2018"); my @array2 = split(/\s+/, "18.08.2018 19.08.2018 20.08.2018");
my %hash1 = map {$_=>1} @array1; my @arrayExists = grep { $hash1{$_} } @array2; my @arrayNotExists = grep { !$hash1{$_} } @array2;
print 'EXISTS: '.join(', ', @arrayExists)."\n"; print 'NOT EXISTS: '.join(', ', @arrayNotExists)."\n";
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKdXNlIHN0cmljdDsKdXNlIHdhcm5pbmdzOwoKbXkgQGFycmF5MSA9IHNwbGl0KC9ccysvLCAiMjAuMDguMjAxOCAyMS4wOC4yMDE4IDIyLjA4LjIwMTgiKTsKbXkgQGFycmF5MiA9IHNwbGl0KC9ccysvLCAiMTguMDguMjAxOCAxOS4wOC4yMDE4IDIwLjA4LjIwMTgiKTsKCm15ICVoYXNoMSA9IG1hcCB7JF89PjF9IEBhcnJheTE7Cm15IEBhcnJheUV4aXN0cyA9IGdyZXAgeyAkaGFzaDF7JF99IH0gQGFycmF5MjsKbXkgQGFycmF5Tm90RXhpc3RzID0gZ3JlcCB7ICEkaGFzaDF7JF99IH0gQGFycmF5MjsKCnByaW50ICdFWElTVFM6ICcuam9pbignLCAnLCBAYXJyYXlFeGlzdHMpLiJcbiI7CnByaW50ICdOT1QgRVhJU1RTOiAnLmpvaW4oJywgJywgQGFycmF5Tm90RXhpc3RzKS4iXG4iOw==