title: Perl. Hash inside array inside hash. How to get values of inner hash?
body: <p>There is a simple code to query storm api</p>
  
  <pre><code>#!/usr/bin/env perl
  use strict;
  use warnings;
  use HTTP::Request;
  use LWP::UserAgent;
  use LWP::Simple;
  use JSON::XS;
  use Try::Tiny;
  use Data::Dumper;
  
  my $ua = LWP::UserAgent-&gt;new; 
  my $status = $ua-&gt;get("http://lab7.local:8888/api/v1/topology/summary");
  my $sts = $status-&gt;decoded_content;
  my $coder = JSON::XS-&gt;new-&gt;ascii-&gt;pretty-&gt;allow_nonref;
  my $out = try {my $output = $coder-&gt;decode($sts)} catch {undef};
  print Dumper(\%$out);
  </code></pre>
  
  <p>The output</p>
  
  <pre><code>$VAR1 = {
        'topologies' =&gt; [
                          {
                            'encodedId' =&gt; 'subscriptions_lab_product-8-1452610838',
                            'workersTotal' =&gt; 1,
                            'status' =&gt; 'ACTIVE',
                            'uptime' =&gt; '35m 54s',
                            'name' =&gt; 'subscriptions_lab_product',
                            'id' =&gt; 'subscriptions_lab_product-8-1452610838',
                            'tasksTotal' =&gt; 342,
                            'executorsTotal' =&gt; 342
                          }
                        ]
      };
  </code></pre>
  
  <p>How can i get for example the 'id' value of inner hash?<br>
  OS: RHEL6.6<br>
  Perl: 5.10.1</p>