配列の要素を一つランダムに抽出しかつ連続して同じものを取り出さないようにするにはどんなテクニックを使えばいいんでしょうか？

ランダムに取り出す部分はできています  
大雑把で申し訳ない  
教えて下さい
CC BY-SA 3.0
2016-07-06T11:02:58.860
27384
2016-11-16T14:37:05.507
2016-07-06T11:11:06.993
76
17084
question
perl
配列から連続して同じものを取り出さない
1) `splice` を使って選んだ要素を削除する。  
2) 選んだ要素を最後の要素と入れ替えて、`pop`(削除)する、あるいは`pop`(削除)せずに選択レンジを１小さくする。
CC BY-SA 3.0
2016-07-06T11:12:23.767
27385
2016-07-07T03:11:38.133
2016-07-07T03:11:38.133
5044
5044
27384
answer