my %wanted;
            my %validfile = map +($_ => 1), qw/ dir file link /;
            my %validupdate = map +($_ => 1), qw/ mode owner group /;
            for (keys %{ $config{$test}{$tester} })
            {
                my($filetype, $updatetype) = split /-/, $_, 2;
                unless ($validfile{$filetype} && $validupdate{$updatetype})
                {
                    warn "Unexpected directive '$_'";
                    next;
                }
                $wanted{$filetype}{$updatetype} = $config{$test}{$tester}{$_};
            }

[...]
            sub wanted_c
            {
                print "wanted_c is working on $_\n";
                my %wanted_prev = %wanted;
                my $wanted_here;
                stat($_);
                if (-d $_) {$wanted_here = $wanted_prev{'dir'}}
                elsif (-l $_) {$wanted_here = $wanted_prev{'link'}}
                elsif (-f $_) {$wanted_here = $wanted_prev{'file'}}
                else {return;}
                return unless $wanted_here;  # nothing to change
                print Dumper($wanted_here);
                if (defined $wanted_here->{'mode'})
                {
                    change_mode($_, $wanted_here->{'mode'})                     }
                if (defined $wanted_here->{'owner'})
                {
                    change_owner($_, $wanted_here->{'owner'});
                }
                if (defined $wanted_here->{'group'})
                {
                    change_group($_, $wanted_here->{'group'});
                }
            }

##</code><code>##

Variable "%wanted" will not stay shared at permmy7.pl line 317 (#1)