use strict;

opendir THISDIR, "." or die "serious dainbramagae: $!";

my $i = 0;
my @files = readdir THISDIR;

foreach (@files) {
   print "[", $i++, "] $_\t" if -d $_;
}

closedir THISDIR;