tie %h => Redirect_Hash;

$h{redirect_name} = 'boondoggle';
print $h{name}, "\n"; # prints 'boondoggle'

$h{name} = 'Fred';
print $h{name}, "\n"; # still prints 'Fred'
print $h{redirect_name}, "\n"; # still prints 'boondoggle'