my $a = 3;
my $b = ~$a;
$a = ~$b
