Help for this page
while (@arr2 = <CF>){ foreach $line (@arr2) {
my @arr2 = <CF>; foreach $line (@arr2) { # ...
while (my $line = <CF>) { # ...