my @array1 = (0);
my @array2 = ();
my @array3 = ();
if(grep{ $_ > 0 }(@array1,@array2,@array3)) {
  #...
}