for $name (keys %::) 
{ 
  eval 'my $val = '.$name.';';
}