Select Code to Download

my %users = (
    "Bob Smith" => {
...

my $user = "Jim Jones";
print "The keys for $user are: ", join(", ",keys %{$users{$user}});