while ( my $line <$datfh> ) {