Oops! Fixed in original node. I also made the code print both the keys and the values.

$a ^= $b is a shortcut for $a = $a ^ $b. Both operators are documented in perlop. In context, $t ^= 1 causes $t and the return value of the expression to flip-flip between zero and one every time it is executed (assuming $t is originally zero or one).