Select Code to Download

#!/usr/bin/perl
# dirdupes
...
    $dirs{$File::Find::name} = 1;
    ++$dirs{$File::Find::name};
}

Output
c:\Temp\hddzip>perl dirdupes.pl
...
C:\Temp/hddzip/P12345679
C:\Temp/hddzip/Test1/P12345678
C:\Temp/hddzip/Test2/P12345678

#!/usr/bin/perl
# dirdupes
...
    if (not exists($dirs{$P00})) {$dirs{$P00}=[];}
    push @{$dirs{$P00}},$File::Find::dir;
}

C:\Temp\hddzip>perl dirdupes.pl

...
P12345679 - C:/Temp/hddzip
P12345679 - C:/Temp/hddzip/PDF