@$array[$i,$j] = @$array[$j,$i];

##</code><code>##

 my $temp =  $array->[$i,$j];
 $array->[$i,$j] = $array->[$j,$i];
 $array->[$j,$i] = $temp;