5.11 ハッシュを結合する

# リストとして結合
%merged = (%A, %B);

# メモリ節約版
%merged = ();
while ( ($k, $v) = each (%A) ) {
  $merged{$k} = $v;
}
while ( ($k, $v) = each (%B) ) {
  $merged{$k} = $v;
}