Tied Variables 

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

my $value    = $hash{$key1}; # $obj->FETCH($key1);
$hash{$key2} = $value;       # $obj->STORE($key2, $value);