$lh=scalar keys %h;
print ((keys %h)[int rand($lh)]);