Problem solved, thanks to a kind and selfless monk Here's how it was done:

The last looping construct was replaced with:

my $tmpCtl =
  new Config::General(
                      -ConfigPath      => \@path,
                      -ConfigFile      => $tmpctlFile,
                      -ExtendedAccess  => 1,
                      -InterPolateVars => 1
                     );

my %tmpCtlhsh = $tmpCtl->getall();


foreach my $user (keys %tmpCtlhsh){
    foreach my $server (keys %{ $tmpCtlhsh{$user} }){
        if (exists $tmpCtlhsh{$user}{$server}{approvedBy}){
            print "user $user is approved for $server\n";
        } else {
            print "should I delete $user access to $server?\n";
        }
    }
}
[download]