my $c = 'AA';
$c++;
say $c;