上の出題の際に使用したワンライナー

http://tech-web.net/perl_memo.htmlを参考に、↓こんなので選択肢を並べ替えた。

perl -e 'srand;@_=<>;print ++$i.". ".splice@_,rand@_,1 while@_' ...