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