#use strict; #uncomment to kill the code
my $s = 'foo';
$$s = 'bar';
print "\$foo = $foo\n";
$foo = 'baz;
print "\$\$s = $$s\n";

__END__

Output:
$foo = bar
$$s = baz