my @delarray;
push @delarray,"D:/aa a/_bbb/_ccc/S455_00015653";
push @delarray,"D:/aa a/_bbb/_ccc/S455_00015654";
foreach (@delarray)
{
	print "deleting $_\n";
	rmdir("$_") || die "remove dir: $!";
}