5.12 2つのハッシュから共通/非共通のキーを見つける

## 共通のキーを見つける
my @common = ();
foreach (keys %hash1) {
  push (@common, $_) if exists $hash2{$_};
}
# @commonには、共通のキーが格納される

## 一方のハッシュにしかないキーを検出する
my @this_not_that = ();
foreach (keys %hash1) {
  push(@this_not_that, $_) unless exists $hash2{$_};
}