while ($line = <TF>) {
    ...
    $line = <TF>;
}