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