my $x = 'A';
++$x;
print "$x\n";