my %hash = (
    var => \$dw_VAR,
    str => \$dw_STR,
);
print "str is ", ${$hash{str}}, "\n";