no strict 'refs';
$y = 'bob';
$x = '$y';
$$x = 'wierd';

print $$x;    # prints 'wierd' ($$x has a value)
print ' - ';  # print a little seperator
print $bob;   # prints nothing ($bob is still undefined)