in reply to Using file::find to find dupe dirs

Remove the commented line. It is causing every entry in %dirs. to always be equal to '2'. 

sub dir_names
{
    return unless -d;
    return unless /[IPD]\d{8}$/;
#    $dirs{$File::Find::name} = 1;
    ++$dirs{$File::Find::name};
}

[download]
It helps to remember that the primary goal is to drain the swamp even when you are hip-deep in alligators.

In Section Seekers of Perl Wisdom