use warnings;
use strict;
use List::Util qw/shuffle/;

my $runs  = 1000;
my $range = 1553;

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