# @thermo_params contains the data.
my @thermos;
my $data_line;

  
 foreach $data_line (@thermo_params)     {

       @thermos = split (/\s+/, $thermos);
       print "$thermos[0]\n";

  print "$thermos[2]\n"

}