foreach (keys %firsthash) {
  if (exists($secondhash{$_})) {
    delete($firsthash{$_};
    }
}
foreach (keys %secondhash) {
  if (exists($firsthash{$_})) {
    delete($secondhash{$_};
    }
}