my %set;
my $substit = "";
for (1..26) {
    my $randchar;
    do { $randchar = chr((int rand 26) + 65) }
        while $set{$randchar}++;
    $substit .= $randchar;
}