Select Code to Download

sub shuffle
{
    my $array_ref = shift;
...
        @$array_ref[ $i, $r ] = @$array_ref[ $r, $i ];
    }
}

sub recursive_shuffle
{
    my $array_ref = shift;
...
    }
    shuffle( $sub_array );
}