# fisher_yates_shuffle( \@array ) :  
    # generate a random permutation of @array in place 
    sub fisher_yates_shuffle { 
        my $array = shift; 
        my $i; 
        for ($i = @$array; --$i; ) { 
            my $j = int rand ($i+1); 
            next if $i == $j; 
            @$array[$i,$j] = @$array[$j,$i]; 
        } 
    } 
  
    fisher_yates_shuffle( \@array );    # permutes @array in place

    srand; 
    @new = (); 
    @old = 1 .. 10;  # just a demo 
    while (@old) { 
        push(@new, splice(@old, rand @old, 1)); 
    }