my @dirs= grep { -d } glob( "$dir/*" );