($b,$a) = ($a,$b) ; 

##</code><code>##

my $tmp = $b ; 
$b= $a ; 
$b = $tmp ;