$a = ['A','B','D'];
$b = ['B','E','F'];
$source = ['A','B','C','E','F'];

$x = &check_array($a, $source);
print "First Comparison   = $x\n";

$x = &check_array($b, $source);
print "Second Comparison  = $x\n";


sub check_array{
	my ($a, $source) = @_;
	foreach my $elt (@$a){
		return 1 unless(grep /$elt/, @$source);
	}
	return 0;
}