DB<23> use feature "state"; print grep { state $ff ^= 1 } 0..9
02468
  DB<24> use feature "state"; print grep { not state $ff ^= 1 } 0..9
13579