push(@temp, $hash) if (defined($key)); $hash = {FRAME => $key}; if ($_ =~ /Simple Network Management Protocol/) { $hash->{SNMP} = {SNMP_LIST => []}; } elsif ($_ =~ /\s*SNMP\:\s+Object\s+\=\s+(.+)/) { $oid_list->{OID} = $oid; $oid_list->{NAME} = $name; } elsif ($_ =~ /\s*SNMP\:\s*\n/) { push(@{$hash->{SNMP}->{SNMP_LIST}}, $oid_list); }