while (@arr2 = <CF>){

foreach $line (@arr2) {