in reply to Assign (key, value) to a hash w/o clobbering hash

You can also use a hash slice. 
%tmphash = map { split /X/ } "fooXbar", "bishXbash";
@hash{keys %tmphash} = values %tmphash;

[download]

In Section Seekers of Perl Wisdom