my $x = "def";
my $r = \substr( $x, 0, 0 );
say ref( $r );                   # LVALUE
$$r = "abc";
say $x;                          # abcdef