[mess] [perl] Hash Override

my %register = ( "name" => "Wander", "name" => "Tison" );
print $register{ name }; # OUTPUT: Tison

所以为了合并散列（新散列覆盖旧散列，如果有交叉）可以使用下面两种写法

%old = ( %old, %new );

# or

@old{ keys %new } = values %new;