sub test_dns_in_spectrum{
    ...
    foreach my $name (keys %DNS_Data_ntoa){
        $status = 0;
        unless (exists $Spectrum_Data_ntoa{$name} ){$status += 1;};
        ...
# Hier teste ich ob es auch in dem %Spec.. einen Schlüssel 
# $name gibt und falls das nicht so ist wird $status incrementiert.
        if ($status == 3){
...
            next;
        } elsif ($status == 2){
....
            next;
        } elsif ($status == 1){
...  # existiert der Schlüssel nicht, wird hier die nächste iteration gestartet. Das Programm läuft also nicht weiter...
            next;
        }

        if ( ($DNS_Data_ntoa{$name} eq $Spectrum_Data_ntoa{$name}) && \  # und hier kriege ich den Fehler!
            ($DNS_Data_aton{$DNS_Data_ntoa{$name}} eq $Spectrum_Data_aton{$Spectrum_Data_ntoa{$name}}) ){
            next;
        } else {
    ....        
        }
    }
}