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