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