if (0 == grep $_ != 0, $a,$b,$c,$d,$x, $w,$y,$z) {
	say "all zero";
}