for $name (keys %::) 
{ 
  no strict 'refs';
  $val = $$name;
}