#!/usr/bin/perl -w
use strict;
#make up some data
my @arr1 = 1 .. 100;
my @arr2 = 0 .. 300;
my @arr3 = reverse(@arr1);
my @arr4 = 5 .. 10;

#test it.
if(grep($_ == 0, (@arr1,@arr2,@arr3,@arr4))){
    print "Found it!";
}else{
    print "no dice!";
}
[download]

Found it!
[download]