in reply to foreach problem

when i try and print these columns, only the top value prints, not the whole column. Where am i going wrong?

The variable you're splitting appears to be a remnant of some earlier operation. Try changing 

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

[download]
to 
  @thermos = split (/\s+/, $data_line);

[download]

In Section Seekers of Perl Wisdom