foreach (keys %$dirs)
{
    next if $config_dirs->{$skip};
    # Do stuff
}
---- Or ----
foreach (keys %$dirs)
{
    next if grep {/^$skip/} keys %$config_dirs;
    # Do stuff
}