# Dumper %RegHash = $error;
            # while (@set = 2)
                {
                @set = each %RegHash or die "failure to read registry: $! \nlast contents of Registry Hash = $error \n";
                last if @set != 2;
                 if ($set[0] eq "/"){
                     print "$val = $set[0]\n";
                     $watchcode = 1;
                }
                 
                next; # added
            }