#!/usr/bin/perl
# your code goes here
use strict;
use warnings;
use v5.10.1;
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 @arrayExists = grep {$_ ~~ @array1} @array2; my @arrayNotExists = grep {!($_ ~~ @array1)} @array2;
print 'EXISTS: '.join(', ', @arrayExists)."\n"; print 'NOT EXISTS: '.join(', ', @arrayNotExists)."\n";
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKdXNlIHN0cmljdDsKdXNlIHdhcm5pbmdzOwp1c2UgdjUuMTAuMTsKCm15IEBhcnJheTEgPSBzcGxpdCgvXHMrLywgIjIwLjA4LjIwMTggMjEuMDguMjAxOCAyMi4wOC4yMDE4Iik7Cm15IEBhcnJheTIgPSBzcGxpdCgvXHMrLywgIjE4LjA4LjIwMTggMTkuMDguMjAxOCAyMC4wOC4yMDE4Iik7CgpteSBAYXJyYXlFeGlzdHMgPSBncmVwIHskXyB+fiBAYXJyYXkxfSBAYXJyYXkyOwpteSBAYXJyYXlOb3RFeGlzdHMgPSBncmVwIHshKCRfIH5+IEBhcnJheTEpfSBAYXJyYXkyOwoKcHJpbnQgJ0VYSVNUUzogJy5qb2luKCcsICcsIEBhcnJheUV4aXN0cykuIlxuIjsKcHJpbnQgJ05PVCBFWElTVFM6ICcuam9pbignLCAnLCBAYXJyYXlOb3RFeGlzdHMpLiJcbiI7