sub xor { $a = "$a" ^ "$b"; $b = "$a" ^ "$b"; $a = "$a" ^ "$b"; }

$a=999999999999;
$b=8888888;
print "BEFORE: A=$a B=$b\n";
&xor();
print "AFTER:  A=$a B=$b\n\n";