phew...that was a mouthful

Yesterday Steves was kind enough to provide me with the following code:
I've changed it slightly but it's essentially the same 

    foreach (@log_file) {
    chomp;

    next if ($_ =~ /^\s*$/);

    if ($_ =~ /^Date:\s+(.+)$/) {
        push(@lookup, $hash) if (defined($hash));
        $hash = {DATE => $1};
    }
    if ($_ =~ /^SServer:\s+(.+)$/) {
        $hash->{SSERVER} = $1;
    }
    elsif ($_ =~ /^Device:\s+(.+)$/) {
        $hash->{DEVICE} = $1;
    }
    elsif ($_ =~ /^CString:\s+(.+)$/) {
        $hash->{CSTRING} = $1;
    }
    elsif ($_ =~ /^Port:\s+(.+)$/) {
        $hash->{PORT} = $1;
    }
    elsif ($_ =~ /^SNMP Traps Generated:/) {
        $hash->{TRAPS} = {TRAP_LIST => []};
    }
    elsif ($_ =~ /^\s+Trap OID:\s+(.+)$/) {
        $hash->{OID} = $1;
    }
    elsif ($_ =~ /^\s+Generic:\s+(.+)$/) {
        $hash->{GENERIC} = $1;
    }
    elsif ($_ =~ /^\s+Specific:\s+(.+)$/) {
        $hash->{SPECIFIC} = $1;
    }
    elsif ($_ =~ /^\s+Varbind:\s+(.+)$/) {
        $trap = {VARBIND => $1};
    }
    elsif ($_ =~ /^\s+Type:\s+(.+)$/) {
        $trap->{TYPE} = $1;
    }
    elsif ($_ =~ /^\s+Data:\s+(.+)$/) {
        $trap->{DATA} = $1;
        push(@{$hash->{TRAPS}->{TRAP_LIST}}, $trap);
    }
    }

    push(@lookup, $hash) if (defined($hash));

    print $lookup[0]{'SSERVER'};
    print $lookup[0]{'DEVICE'}; 

    print $lookup[0]{'TRAPS'}->{'TRAP_LIST'}; #returns an array ref

[download]
Any idea how I can print element 0 of the lookup array containing the hash of arrays?
Thanks

In reply to How do I print an array of hashes containing an array by Anonymous Monk

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.