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