my %dirs = map{ 
    $_ => [ map{ m[.*/(.*?)$] } glob "$_/*" ] 
} grep{ -d } glob "/basedir/*";