$ perl -e'
my $g = "g300";
my $r = \substr $g, 1;
print "$g\n";                             
$$r = 500;
print "$g\n";                                    
'
g300
g500