Select Code to Download

sub bukNew ($) {
    my( $ref ) = @_;
    my @x = 0 .. $#$ref;
    @{ $ref }[ map splice( @x, rand @x, 1 ), @x ];
}

sub bukNew (@) {
    my @x = 0 .. $#_;
    @_[ map splice( @x, rand @x, 1 ), @x ];
}