my %Next = ( 0 => 1, 1 => 0);
  my $Counter = 0;
  #...
  $Counter = $Next{$Counter};