undef $count; foreach(($x, $y, $z)) { $count++ if($_); } print "Exactly one variable set\n" if($count == 1); --Knom