Script geht nicht, windows Registry überprüfen! Please Help!!!

[Thomas]

Hi,
also irgendwie geht das script einfach nicht(hoffe mein Denkansatz war richtig!).
Das Script soll Registrykeys aus ner TXT auslesen und überprüfen ob die vorhanden sind, danach in ne andere TXT reinschreiben...Hoffentlich könnt ihr mir helfen.Danke schon mal!
Hier das Script:
use Win32::TieRegistry( Delimiter=>"/" );
open (DATEI, "<data.txt");     # vorhandene TXT mit registry Einträgen
@datei = <DATEI>;
close (DATEI);
open (DATEINEU, ">results.txt");    # TXT in der reinschreibt ob der Key vorhanden ist(verzeichnis)
foreach (@datei)
{
        (@p1) = (//, $_);    # liest den Pfad aus der data.txt
        undef (@p1[@p1-2]);
        $pfadname = join ("", @p1);
        print "Pfadname: $pfadname\n";
        chomp ($_);
        }

$zaehler = 0;      # setzt den zähler auf null
foreach $k (keys %vals) {    # foreach schleife -> jeder RegistryWert wird angepackt
$key = $vals{$k};     # Registrywert wird in $key geschrieben
 chomp ($k);
 if $key = $_[$zaehler]    # Wenn Registrywert mit nem Wert aus Textfile übereinstimmt...
 {

print DATEINEU "Eintrag $_ \t\t/ \t vorhanden.\n";
 }
 else
        {
                print DATEINEU "Eintrag $_ \t\t/ \t nicht vorhanden.\n";
        }
 $zaehler ++;     # Zaehler +1