bkiahg,
I am guessing that it is because those are the only directories you have in $dirtoget. If you wanted to see files too you would not test with -d. See the following:

#!/usr/bin/perl -w
use strict;

my $dirtoget = './CSOC';

opendir( IMD , $dirtoget ) or die "Unable to open $dirtoget : $!";
for my $file ( readdir IMD ) {
    my $fqp = $dirtoget . '/' . $file;
    print -d $fqp ? "$fqp is a directory\n" : "$fqp is not a directory
+\n";
}
[download]

Cheers - L~R

Update: Added $dirtoget to directory test as noted by other monks