Help for this page
# ... @r = <DATFH>; chomp @r;
#!/usr/bin/perl use strict; ... } close $datfh or die "$file: close(ro) failed: $!\n";