open(DB, "<temp.tmp") || die "Kann Temporäre Datei nicht öffnen!";
while(<DB>) {
            $buffer = $_;
            $INDD = $buffer;
            $INDD =~ m/^(.*?)=(.*),(.*)$/;
            $xxx = $2;
            $OUTDD = $buffer;
            $OUTDD =~ m/^(.*?),(.*)=(.*)$/;
            $yyy = $3;
            }