my $a = "A";
$a++;
print "$a\n";
$a++;
print "$a\n";
$a++;
print "$a\n";
$a++;
print "$a\n";
$a--;
print "$a\n";