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

##</code><code>##

sub my_shuffle2 {
    my $ref = \@_;
use List::Util 'shuffle';
    @{$ref}[0..$#$ref] = shuffle(@$ref);
    return unless defined wantarray;
    return wantarray ? @{ $ref } : $ref;
}