sub flip_flop {
  $_ ^= 1;
}