my $sstr = "my string";
my $rsstr = \$sstr;


print "org str '$sstr'; addr: '" . \$sstr . "'\n";

$sstr .= " + my string add";

print "rs 1 str '$sstr'; addr: '" . \$sstr . "'\n";

$$rsstr .= " + add to ref";

print "rs 2 str '$sstr'; ref: '" . $rsstr . "'; addr: '" . \$sstr . "'\n";

##</code><code>##

org str 'my string'; addr: 'SCALAR(0x22e8af8)'
rs 1 str 'my string + my string add'; addr: 'SCALAR(0x22e8af8)'
rs 2 str 'my string + my string add + add to ref'; ref: 'SCALAR(0x22e8af8)'; addr: 'SCALAR(0x22e8af8)'