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