#!/usr/bin/perl -w
use Data::Dumper;

while(<*>){
    push(@files,$_) if(-d "$_");
}
print "\n". Dumper(@files) ."\n";

##</code><code>##

sean@seanc:~/code/temp$ ls -l
total 16
drwxr-xr-x 2 sean sean 4096 2008-09-17 09:12 dir1
drwxr-xr-x 2 sean sean 4096 2008-09-17 09:12 dir2
drwxr-xr-x 2 sean sean 4096 2008-09-17 09:12 dir3
-rwxr-xr-x 1 sean sean  155 2008-09-17 09:11 dir_list.pl
-rw-r--r-- 1 sean sean    0 2008-09-17 09:12 file1
-rw-r--r-- 1 sean sean    0 2008-09-17 09:12 file2
-rw-r--r-- 1 sean sean    0 2008-09-17 09:12 file3
sean@seanc:~/code/temp$ ./dir_list.pl 

$VAR1 = 'dir1';
$VAR2 = 'dir2';
$VAR3 = 'dir3';