If you are just trying to print the entire file, you don't need the line counters. Perl will keep track of where you are in the file and return the next line until the end of the file. I think the code below will do that, once you have FILE opened.

From your post, I'm not sure what else you're trying to accomplish. Are you looking to parse the fields in the data line ?

my @data = <FILE>;

for $OneLine( @date) { print $OneLine; }
[download]