# this works
#!/usr/bin/perl -w   
use strict;
my $a = "a";
print ++$a ."\n";
print ++$a ."\n";
print ++$a ."\n";

# this also works
#!/usr/bin/perl -w   
use strict;
my $a = "a8";
print ++$a ."\n";
print ++$a ."\n";
print ++$a ."\n";

# but this is unpredictable
#!/usr/bin/perl -w   
use strict;
my $a = "a8y";
print ++$a ."\n";
print ++$a ."\n";
print ++$a ."\n";


##</code><code>##

perl -e '$char = "a"; print $char++, $/ for 1..20'
perl -e '$char = "a0"; print $char++, $/ for 1..20'
perl -e '$char = "a0a"; print $char++, $/ for 1..20'