local $" = "\n";
    print "@{[(split) [0, 2]]}\n" for @thermo_params;