Select Code to Download

    for( 0 .. $#$ref ) {
        my $p = $_ + rand( $n-- );
        @{$ref}[$p,$_] = @{$ref}[$_,$p];
    }

sub my_shuffle2 {
    my $ref = \@_;
...
    return unless defined wantarray;
    return wantarray ? @{ $ref } : $ref;
}