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