if (exists $lkzs{CountryCode}){ $out = $lkzs{CountryCode}; print $out $satz; } else { $land = CountryCode; $datei = $verzeichnis.$land.".txt"; $out = CountryCode; open (our $out,">:raw:utf8",$datei); $lkzs{CountryCode} = $out; print $out $header; print $out $satz; }