Hi, I've got a strange problem I can't get my head round. I'm pushing a hash and the first one appears in OK, but subsequent ones appear wrong?

$VAR1 = \[
            {
              'desc' => 'xxx',
              'ports' => [
                           {
                             'adminstate' => 'up',
                             'operationstate' => 'down',
                             'port' => '80',
                             'ismaster' => 'active'
                           },
                           {
                             'adminstate' => 'up',
                             'operationstate' => 'down',
                             'port' => '81',
                             'ismaster' => 'active'
                           },
                           {
                             'adminstate' => 'up',
                             'operationstate' => 'down',
                             'port' => '82',
                             'ismaster' => 'active'
                           }
                         ],
              'adminstate' => 'up',
              'lagid' => '45',
              'operationstate' => 'down'
            },
            ${$VAR1}->[0],
            ${$VAR1}->[0],
            ${$VAR1}->[0],
            ${$VAR1}->[0],

[download]

The first structure appears just fine, but subsequent pushes only show as "${$VAR1}->[0]" - not sure why?

foreach my $line ( split( /\n/, $c ) ) {
    if ( $line =~ m/someregex/ ) {
        if ( exists( $lag_detail{"ports"} ) ) {
            push( @{ $self->{"lags"} }, \%lag_detail );
        }
        %lag_detail = ( "lagid" => $lag, "lagdesc" => $4, "operationst
+ate" => $3, "adminstate" => $2 );
    }
}

if ( $line =~ m/somemoreregex/ ) {
    my %port_detail = ( "port" => $1, "adminstate" => $2, "operationst
+ate" => $4, "ismaster" => $3 );
    push @{ $lag_detail{"ports"} }, \%port_detail;
}
}

[download]

In reply to Push array to hash by bartrad

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.