Select Code to Download

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

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