You may also be able to use TheDamian's Quantum::Superpositions to do the trick for you. Perhaps something like the following code:

#!/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";
}
[download]

As expected, the above example does find a match.

-Eric

--
Lucy: "What happens if you practice the piano for 20 years and then end up not being rich and famous?"
Schroeder: "The joy is in the playing."