print $fot join("\t",$Janlen,  $length, $filename), "\n";