unless ($x != 1) {print "YUCK!\n"}
    #would be much better as
if ($x == 1) {print "Much Better\n"}
    #but the effect is the same