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

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