my $x = 123;
my $y = 666; 

$x ^= $y ^= $x ^= $y;