my $ns                  = 'Teddy::';
my $var                 = 'foo';
${ $::{$ns}{$var} }     = 'cheese';