while ( my $line =  <$datfh> ) {