while (my $line_holder = ) { foreach etc...