my %Rolodex = {
    BobSmith => {
        name => "Bob Smith",
        phone =>"123-456-7890",
    },
    JimJones => {
        name => "Jim Jones",
       phone =>"098-765-4321",
    },
};

for my $personKey ("BobSmith", "JimJones") {
    print "Name: %s, Phone: %s\n",
          $Rolodex{$personKey}{name},
          $Rolodex{$personKey}{phone};
}

my @BobSmithk = keys(%{$Rolodex{BobSmith}});