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