my $random_upper_case_letter = chr(int(rand(26)+1)+65);