###################################################
## folders + dated subfolders There are many !!

## A/<date1> = past
## A/<date2> = future
## B/<date3> = past
## B/<date4> = future
## ..
## function needs to return [ <date2>,A and <date4>,B ]
###################################################

##</code><code>##

sub _isGoodFolder {
  my ($theDate,$datePlusFolder,$attr) = @_;
   my ($date) = ($datePlusFolder =~ /\/(\d{8})$/);

   if ($date > $theDate) {  ## compare folder date with today
	return $datePlusFolder;
   }
  return '';
}

my $today = new Date::Business->image;
my $dir = <basePath>;
my $cwd = Cwd::getCwd();
chdir($dir);
my @folderKeys = grep { _isGoodFolder($today,$_) } glob("*/*");
chdir($cwd);
return [ map { join ",",(split "\/")[1,0] } @folderKeys ];