$dw = "dw_urg";
%$dw_TG = qw(
  var  $dw_VAR
  str  $dw_STR
  mkt  $dw_MKT
);
foreach $key (keys %$dw_TG)
{
print "$$dw_TG{$key} -> $key\n";
}