配列をシャッフルさせます。 List::Util::shuffleを使用します。
1 2 3 4 5 6 7 8 9 10 11
- !
#!/usr/bin/perl use strict; use warnings; use List::Util; my @list = (1..10); @list = List::Util::shuffle @list; print "@list\n";