while (<$DATFILE>) {
print $cnt,'  ',length($_),"\n" if ($length>10_000);
$cnt++;