foreach (keys %$enthalpy_hash) {
  if(exists $hash->{$_}) {
    push @common, "$_ = ", $enthalpy_hash->{$_} * $hash->{$_}, "\n";
    push @total, $enthalpy_hash->{$_} * $hash->{$_}, "\n";
  }
}