$lh=(split "/",scalar keys %h)[0];
print ((keys %h)[int rand($lh)]);