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