$oldCOORRDIR ="";
while ($CURRDIR =~ m/\//) {
$COORRDIR = substr($CURRDIR, 0, index($CURRDIR, "/"));
unshift (@dacurdirs, "$oldCOORRDIR/$COORRDIR");
$oldCOORRDIR = $COORDIR;
$CURRDIR = substr($CURRDIR, index($CURRDIR, "/"));
}