perl -MData::Dumper -e 'do{for(glob"$_*"){split m[/]and$.=\%.and
push@.,"$_/";$.=$.->{$_[$_]}||=$_==$#_?"":{}for
0..$#_;}}while($_=shift@.);&_;sub _{print Dumper\%.}'