if(a$ eq 1)  { $a = 0 }  else { $a = 1 }  #versteht jeder (auch nicht so geübte)


$a ^= 1;            #gut, aber nur profis, jedoch besser als das nachfolgende
$a = $a ? 0 : 1;   #schlecht lesbar, nur profis