print "$_ is ", do {
		if ($_==0) { "zero" }
		elsif ($_>0) { "pos" }
		else { "neg" }
	}, "\n" for -1..1;
# Output:
# -1 is neg
# 0 is zero
# 1 is pos