print "Schleife2 start";
    foreach (@temp) {
        my ( $qip3, $zip3, $qp3, $zp3, $qt3, $zt3, $qm3, $zm3 ) = split( / /, $_ );
        my $da   = "0";
        #my $temp = $_;
        foreach (@monthly_temp) {
            my ( $qip4, $zip4, $qp4, $zp4, $qt4, $zt4, $qm4, $zm4 ) = split( / /, $_ );
            if ($qip3 eq $qip4 && $zip3 eq $zip4 && $qp3 eq $qp4 && $zp3 eq $zp4 ){$da = "1";}
        }
        if ( $da eq "0" ) {
            chomp($_);
            push( @monthly_temp, "$_" );
        }
    }
    print " ende\n";