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