use strict;
use warnings;

my @one     = qw(5 6 7);
my @two     = qw(1 2 0);
my @three   = qw(1 1 1);
my @four    = qw(9 4 6);
for my $i (0 .. $#one) {
    unless ($one[$i] and $two[$i] and $three[$i] and $four[$i]) {
        print "row $i has a zero\n"; # execute some code
    }
}
[download]

prints:

row 2 has a zero
[download]

Update: You should consider reorganizing your data as an ARRAYS OF ARRAYS structure, if you have control over your data. In general, it is easier passing around one data structure than 4.

Here is code that shows how to do so:

#!/usr/bin/perl -w
use strict;

my (@one,@two,@three,@four);

for (\@one,\@two,\@three,\@four){
  # Populate them
  @$_ = map {int (rand() * 10)} 0..499;
}

my $zerocount = 0;
my $index = 0;
my $array = 0;

for (\@one,\@two,\@three,\@four){
  # Look for zero, and change it to 999.
    $index = -1;
    for (@$_){
       $index ++;
       next unless $_ == 0;
       print " Found a zero in array $array at $index.  inserting 999\
+n";
       $_ = 999; # Changes the value!!!!
    }
    $array ++; 
}
[download]

#!/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]

See List::MoreUtils and any

#!/usr/bin/perl -w 
use strict;
use List::MoreUtils qw(any);
use List::Util qw(shuffle);

my ( @one, @two, @three, @four );
my @arrays = ( \@one, \@two, \@three, \@four );

map {
    @$_ = shuffle map { int rand 10 } 1 .. 500;
  }
   @arrays;

# If >any< one of these scalar values (in any array) are equal  # to z
+ero then execute the following code

map {
    print "Zero found!\n" if any { $_ == 0 } @$_ 
  }
  @arrays;
[download]

hth,
PooLpi