my %hash = map {$thermos [$_] => [$enthalphy [$_] => $entrypy [$_]]} 0 .. $#thermos;