in reply to update a hash with a hash

And here is YET another way:

(And easiest to understand, to my way of thinking) - 

while (my ($k,$v) = each %hash2){
  $hash1{$k} = $v;
}

[download]

    Earth first! (We'll rob the other planets later)

In Section Seekers of Perl Wisdom