while (! eof(FILE)) { my $line_holder = ; foreach etc...