my @arr = ('A'..'Z');
my $combo = join '', @arr[rand @arr, rand @arr];
print $combo . "\n";