in reply to subroutines - passing hashes by reference

That return(\@common, \@total) probably needs to be closer to the end of the subroutine, the way you have it written now, you are returning after checking only one of the keys of %enthalpy_hash.

We're not surrounded, we're in a target-rich environment!

In Section Seekers of Perl Wisdom