I have to anonymize several files (semicolon-separated). The following script does the job. ... Where is the mistake?

There are several.

A simple substitution cipher (like rot 13 ) doesn't make the data anonymous, and its easily reversed.

You're not chomping your input, so parsingHeader( $Header, "Number_1" ) returns undef

You have a useless while loop :)