Select Code to Download

my $name = 'foo';
*{$name} = { a => 1, b => 2};
print "$foo{b}\n";

my(%h1,%h2,%h3);
my %lookup = ( 1 => \%h1, foo => \%h2, c => \%h3 );
...
$lookup->{$which_hash}{test} = 'value';

$h2{test} eq 'value';