#! perl-w
my $a='A';
print $a, $a++;
__END__
# Output
C:\test>test
BA
C:\test>