Help for this page
sub shuffle { my $array_ref = shift; ... @$array_ref[ $i, $r ] = @$array_ref[ $r, $i ]; } }
sub recursive_shuffle { my $array_ref = shift; ... } shuffle( $sub_array ); }