Select Code to Download

foreach my $data_line (@thermo_params) {
   my @thermos = split /\s+/, $data_line;
   print "$_\n" for @thermos[0,2];
}