my $a;
$a = $a ^ 1
