#!/usr/bin/perl -w

use strict;
use Quantum::Superpositions;

my @array1 = qw( 0 2 4 6 8 10 12 14 16 18 20 );
my @array2 = qw( 0 5 10 15 20 );

if(any(@array1) eq any(@array2)) {
    print "A match!\n";
}
else {
    print "Nope, no match\n";
}