sub assign_to_hash : lvalue
{
     exists($hash{$_[0]})? $hash{$_[0]} : undef;
}