Check out
perl_white’s
Shuffle