%hash = map { $thermos[$_] => $enthalpy[$_] => $entropy[$_] } 0.. $#thermos;