Maybe the problem is that you're using @subinfo (which you're overwriting for every input line) in the final foreach loop when you check if ($subinfo[$count] <= 50), so what you get is just the values of the last line...