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