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