for (1 .. 10) {
   print qshuf(qw/a b c D D D D/), $/;
}