my($a,$b) = (23, 99);
$a ^= $b ^= $a ^= $b;
print "$a : $b";
99 : 23