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