In that case, you need to split each record as you read it from the file and push a reference to the resulting array onto your main array.

Oh, and you really should start using use strict in your code. It'll find a lot of subtle bugs.

"Perl makes the fun jobs fun
and the boring jobs bearable" - me