$ perl -de 1
...

  DB<1> use 5.010; sub a { grep { state $t ^= 1 } @_ }

  DB<2> x a(1..5)
0  1
1  3
2  5
  DB<3> x a(1..5)
0  2
1  4