I'm sure someone has done something like this as well. Just couldn't find it.

I took your code for a spin in the real world using Google Contacts API. Here's the output from a json response converted to a Perl data structure using Mojo::JSON::decode_json: 

  HASH => {
    encoding => {},
    feed => {
      HASH => {
        "author" => {
          ARRAY => {
            HASH => {
              email => { HASH => { "\\$t" => {} } },
              name  => { HASH => { "\\$t" => {} } },
            },
          },
        },
        "category" => { ARRAY => { HASH => { scheme => {}, term => {} 
+} } },
        "entry" => {
          ARRAY => {
            HASH => {
              "app\\$edited" => { HASH => { "\\$t" => {}, "xmlns\\$app
+" => {} } },
              "category" => { ARRAY => { HASH => { scheme => {}, term 
+=> {} } } },
              "content" => { HASH => { "\\$t" => {} } },
              "gContact\\$birthday" => { HASH => { when => {} } },
              "gContact\\$groupMembershipInfo" => { ARRAY => { HASH =>
+ { deleted => {}, href => {} } } },
              "gContact\\$nickname" => { HASH => { "\\$t" => {} } },
              "gContact\\$relation" => { ARRAY => { HASH => { "\\$t" =
+> {}, "rel" => {} } } },
              "gContact\\$userDefinedField" => { ARRAY => { HASH => { 
+key => {}, value => {} } } },
              "gContact\\$website" => {
                ARRAY => { HASH => { href => {}, label => {}, primary 
+=> {}, rel => {} } },
              },
              "gd\\$email" => {
                ARRAY => {
                  HASH => { address => {}, label => {}, primary => {},
+ rel => {} },
                },
              },
              "gd\\$etag" => {},
              "gd\\$extendedProperty" => { ARRAY => { HASH => { "\\$t"
+ => {}, "name" => {} } } },
              "gd\\$im" => {
                ARRAY => {
                  HASH => { address => {}, label => {}, primary => {},
+ protocol => {}, rel => {} },
                },
              },
              "gd\\$name" => {
                HASH => {
                  "gd\\$additionalName" => { HASH => { "\\$t" => {} } 
+},
                  "gd\\$familyName"     => { HASH => { "\\$t" => {}, "
+yomi" => {} } },
                  "gd\\$fullName"       => { HASH => { "\\$t" => {} } 
+},
                  "gd\\$givenName"      => { HASH => { "\\$t" => {}, "
+yomi" => {} } },
                  "gd\\$namePrefix"     => { HASH => { "\\$t" => {} } 
+},
                  "gd\\$nameSuffix"     => { HASH => { "\\$t" => {} } 
+},
                },
              },
              "gd\\$organization" => {
                ARRAY => {
                  HASH => {
                    "gd\\$orgDepartment" => { HASH => { "\\$t" => {} }
+ },
                    "gd\\$orgName" => { HASH => { "\\$t" => {} } },
                    "gd\\$orgTitle" => { HASH => { "\\$t" => {} } },
                    "primary" => {},
                    "rel" => {},
                  },
                },
              },
              "gd\\$phoneNumber" => {
                ARRAY => {
                  HASH => { "\\$t" => {}, "label" => {}, "primary" => 
+{}, "rel" => {}, "uri" => {} },
                },
              },
              "gd\\$structuredPostalAddress" => {
                ARRAY => {
                  HASH => {
                    "gd\\$city"             => { HASH => { "\\$t" => {
+} } },
                    "gd\\$country"          => { HASH => { "\\$t" => {
+}, "code" => {} } },
                    "gd\\$formattedAddress" => { HASH => { "\\$t" => {
+} } },
                    "gd\\$postcode"         => { HASH => { "\\$t" => {
+} } },
                    "gd\\$region"           => { HASH => { "\\$t" => {
+} } },
                    "gd\\$street"           => { HASH => { "\\$t" => {
+} } },
                    "primary"              => {},
                    "rel"                  => {},
                  },
                },
              },
              "id" => { HASH => { "\\$t" => {} } },
              "link" => {
                ARRAY => {
                  HASH => { "gd\\$etag" => {}, "href" => {}, "rel" => 
+{}, "type" => {} },
                },
              },
              "title" => { HASH => { "\\$t" => {} } },
              "updated" => { HASH => { "\\$t" => {} } },
            },
          },
        },
        "gd\\$etag" => {},
        "generator" => { HASH => { "\\$t" => {}, "uri" => {}, "version
+" => {} } },
        "id" => { HASH => { "\\$t" => {} } },
        "link" => { ARRAY => { HASH => { href => {}, rel => {}, type =
+> {} } } },
        "openSearch\\$itemsPerPage" => { HASH => { "\\$t" => {} } },
        "openSearch\\$startIndex" => { HASH => { "\\$t" => {} } },
        "openSearch\\$totalResults" => { HASH => { "\\$t" => {} } },
        "title" => { HASH => { "\\$t" => {} } },
        "updated" => { HASH => { "\\$t" => {} } },
        "xmlns" => {},
        "xmlns\\$batch" => {},
        "xmlns\\$gContact" => {},
        "xmlns\\$gd" => {},
        "xmlns\\$openSearch" => {},
      },
    },
    version => {},
  },

[download]

I modified the code slightly to get rid of the "SCALAR" output.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

In reply to Re^4: How to improve introspection of an array of hashes by nysus
in thread How to improve introspection of an array of hashes by nysus

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.