my $var = 'fred';
${"main::$var"} = 12345; ## set main::fred = 12345