my $skip = join ('|', map {quotemeta} keys %$config_dirs);

##</code><code>##

foreach (keys %$dirs)
{
    next if /^($skip)/;
    # Do stuff
}