$name = 'foo';
$$name = 'bar';
print "foo = $foo\n";
__END__
foo = bar

##</code><code>##

my $name = 'foo';
{   
    no strict 'refs';
    $$name = 'bar';
}
print "foo = $main::foo\n";