$ perl -E'say !$s++ ? 1 : 0 for 1..5;'
1
0
0
0
0