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