Just open the file inside of the loop.

A random tip. When looping over nested data structures, rather than dereferencing the nested data structure fully every time, save it into a lexical variable within the loop before you recurse. That way you will wind up writing something like print $fh "$language /$transcription/\n"; rather than something very long. Much easier to read. Avoiding redundant hash lookups is also faster, but of course that is less important.