foreach my $in (<$datfh>)