perlでn枚の画像ファイルからk枚(kは1〜nの間で変動)の画像ファイルをダブらせずにランダムで抽出したい。
ところが今の方法だと枚数が多くなってkとnが近いときに遅くなりそうなんだけど、何かいい方法ない？

[1]対象となる画像ファイル一覧を配列に格納
[2]whileの無限ループに入る
[3]画像ファイル一覧からランダムで画像を1枚選び、それがまだ結果の配列になければ結果の配列に追加して[4]へ、あれば破棄して[3]へ
[4]結果の配列の要素数がk枚ならwhileループを抜ける、k枚未満なら[3]へ
[5]結果の配列を返す

遅くなるっつーか( n , k ) = ( 100 , 99 )とかだと[3]で最後のほうはまだ結果の配列に入ってない画像がなかなか選ばれなくて準無限ループになりそう。
この条件だと99枚のうち最後の1枚が選ばれるのは2/100の確率だからな。
枚数が増えればもっと悲惨。