my $a='A';
  print "".$a, $a++;
  __END__
  AA