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