@thermos = split (/\s+/, $thermos);

##</code><code>##

  @thermos = split (/\s+/, $data_line);