while ($CURRDIR =~ m/\//) {
unshift (@dacurdirs, substr($CURRDIR, rindex($CURRDIR, "/")));
$CURRDIR = substr($CURRDIR, 0, index($CURRDIR, "/"));
}
while ($CURRCAT =~ m/\//) {
unshift (@dacurcats, substr($CURRCAT, rindex($CURRCAT, "/")));
$CURRCAT = substr($CURRCAT, index($CURRCAT, "/"), rindex($CURRCAT, "/"));
}