while ( my $line <$datfh> ) {

##</code><code>##

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