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]);