The line from file 2 will be written before the check! If the check is true, the phone number will be appended. Finally, a newline is added independently of the outcome of the check.

In order to understand $verzeichnis{...} you would need to read up on hashes in Perl.