my $letter = 'A';