# Right here is where things get predictable!  Mix it up.
# ($c, $r, $l) = splice @queue, 0, 3;
($c, $r, $l) = splice @queue, (rand(@queue / 3) *3), 3;