perl -l
$s = '123456789';
$r = \substr $s, 0, 1;
print ref $r; $$r = "x";
print $s

LVALUE
x23456789