use strict;
use warnings;
my $line = "hello";
my $c = "A";
print "1. line='$line' c='$c'\n";
$line .= chr(ord($c)+1);
print "2. line='$line' c='$c'\n";