Select Code to Download

     my $temp = @$array[$index + 1];
     @$array[$index + 1] = @$array[$index];
     @$array[$index] = $temp;

     t=a;
     a=b;
     b=t;

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

 ($array->[$i+1],$array->[$i])=
         ($array->[$i],$array->[$i+1]);