use List::Util qw(shuffle); my @letters = shuffle(A .. Z); print @letters; # prints something like WOGJLMXQCDVIPNESURZHTFYKBA for $r (1 .. 2) { # or whatever size you need for $c (1 .. 13) { # same here $data[$r][$c] = shift @letters; } }
In reply to Re: Random distribution
by ChrisS
in thread Random distribution
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |