Tied Variables 

my %hash;
tie %hash, SomeClass, $optional_arg_list;

my $value    = $hash{$key1};
$hash{$key2} = $value;