my $temp;
  $temp=$a;
  $a=$b;
  $b=$c;
  $c=$temp;