sub bukShuffle {
    my( $r, $t );
    $r = $_ + rand( @array - $_ ),
    $t =           $array[ $_ ],
    $array[ $_ ] = $array[ $r ],
    $array[ $r ] = $t
    for 0 .. $#array;
}