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