my $test = "a";
print $test."\n";
$test++;
print $test."\n";
$test--;
print $test."\n";