@foo{keys %bar} = values %bar;
%foo = (%foo, %bar);
foreach (keys %bar) { $foo{$_} = $bar{$_} }