sub fisher_yates_shuffle {
    my $array = shift;
    my $i;
    for ($i = @$array; --$i; ) {
        my $j = int rand ($i+1);
        next if $i == $j;
        @$array[$i,$j] = @$array[$j,$i];
    }
}

##</code><code>##

for (0..($#arr-1)) {
    $n = int (rand() * ($#arr - $_ + 1)) + $_;
    $t = $arr[$n];
    $arr[$n] = $arr[$_];
    $arr[$_] = $t;
}

##</code><code>##

for (0..($#arr-1)) {
    $n = int (rand() * ($#arr - $_ + 1)) + $_;

##</code><code>##

    $t = $arr[$n];
    $arr[$n] = $arr[$_];
    $arr[$_] = $t;

##</code><code>##

}

##</code><code>##

for (0..($#arr-1)) {
    $n = int (rand() * ($#arr - $_ + 1)) + $_;

##</code><code>##

    @$arr[$_,$n] = @$arr[$n,$_];

##</code><code>##

}

##</code><code>##

for (0..($#arr-1)) {
    $n = int (rand() * ($#arr - $_ + 1)) + $_;

##</code><code>##

#   next if $_ == $n;

##</code><code>##

    @$arr[$_,$n] = @$arr[$n,$_];
}

##</code><code>##

for (0..($#arr-1)) {          # Your Version
    $n = int (rand() * ($#arr - $_ + 1)) + $_;

for ($i = @$array; --$i; ) {  # Fisher-Yates
    my $j = int rand ($i+1);

##</code><code>##

for (0..($#arr-1)) {
    $n = int (

##</code><code>##

        rand() * ($#arr - $_ + 1)

##</code><code>##

    ) + $_;
#   next if $_ == $n;
    @$arr[$_,$n] = @$arr[$n,$_];
}

##</code><code>##

for (0..($#arr-1)) {
    $n = int (

##</code><code>##

        rand($#arr - $_ + 1)

##</code><code>##

    ) + $_;
#   next if $_ == $n;
    @$arr[$_,$n] = @$arr[$n,$_];
}

##</code><code>##

for (0..($#arr-1)) {
    $n = int (rand($#arr - $_ + 1))

##</code><code>##

        + $_

##</code><code>##

    ;
#   next if $_ == $n;
    @$arr[$_,$n] = @$arr[$n,$_];
}