# All directories in our parent's path
%dirs = map { /^.*\/(.*)/ => $_ } grep {-d} glob "../*";