if( grep{ $_ == 1 } $var1, $var2, $var3, $var4 ) {