my $a='A';
print $a . $a+1 ;