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

##</code><code>##

my $a='A';
print $a . $a+1 ;

##</code><code>##

my $a='A';
print "$a" . $a+1;
</cdoe>
Same thing, still a single '1'.
<br>
<br>
How about if we change it back to list context?
<code>
my $a='A';
print "$a" , $a++ ;

##</code><code>##

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