$File::Find::prune = @{$dirs{$_}} > 1;