use strict;
use warnings;

my $x = 1;
print $x ^= 1 . " " for (1..4);