Use a reference:

$test = 'test';
printf "Was: %s\n",$test;
$hash{t} = \$test;
$change = 'changed';
${$hash{t}} = $change;
printf "Now: %s\n",$test;
[download]