...
print(FHA "$new_filenname$new_ext\t$file\n");
...