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