Select Code to Download

use warnings;
use strict;
...
my @array = ( 'A' .. 'Z' );
@array = shuffle @array for 1 .. $runs * $range;
print "@array";

E I C M P Y D B F Q U J X R V T Z H S N G A O W K L