my $x = 'foo';
my $y = \"bar$x";
$$x = 'baz';