perlで重複無しの乱数を作る

List::Utilを使用。

use List::Util qw(first max maxstr min minstr reduce shuffle sum);

@cards = shuffle 0..51      # 0..51 in a random order