while (@arr2 = <CF>){

foreach $line (@arr2) {

##</code><code>##

my @arr2 = <CF>;
foreach $line (@arr2) {
# ...

##</code><code>##

while (my $line = <CF>) {
# ...