I think Your coding is not right way.

Your requirement is to get the Total no. of Sub-Directories in Specific Main Directory, use File::Find Modules.

@ARGV = 'c:/temp/';
use File::Find ();
$dircount=0;
sub find(&@)
{
     &File::Find::find
}

*name = *File::Find::name;

find
{
    if (-d $name)
    {
        $dircount++;
            print "\n$name";
    }
} @ARGV;

print "\nTotal No. of Sub-Directories = $dircount";
[download]