Well, I can't resist a bit of golf. @s=1..168;print+splice(@s,rand@s,1),@s%12?$":$/while@s Although I would sacrifice a few strokes to get formatted output: @s=1..168;printf'%3d%s',splice(@s,rand@s,1),@s%12?$":$/while@s