@array = qw(pnnixNodeCfgParentNodeIndex  pnnixRouteNodeFwdMetric1 pnnixRouteNodeFwdMetric2);

##</code><code>##

$VAR1 = bless( {
  'tree' => {
    'pnnixIAdjGroup' => {
      '1' => 'pnnixNumIAdj',
      '2' => 'pnnixIAdjTable'
    },
    'pnnixLinkEntry' => {
      '1' => 'pnnixLinkPortId',
      '2' => 'pnnixLinkType',
      '3' => 'pnnixLinkVersion',
      '4' => 'pnnixLinkHelloState',
      '10' => 'pnnixLinkCommonPeerGroupId',
      '11' => 'pnnixLinkIfIndex',
      '14' => 'pnnixLinkXmtHellos',
      '8' => 'pnnixLinkUpnodeId',
      '9' => 'pnnixLinkUpnodeAtmAddress'
    },
  'make_dump' => 1,
  'use_dump' => 1,
  'nodes' => {
    'pnnixNodeCfgParentNodeIndex' => {
      'status' => 'mandatory',
      'description' => '"The local node index used to identify the node that will
             represent this peer group at the next higher level of
             hierarchy, if this node becomes peer group leader.  The
             value 0 indicates that there is no parent node."',
      'syntax' => {
        'type' => 'PnnixNodeIndex'
      },
      'oid' => [
        'pnnixNodePglEntry',
        '2'
      ],
      'access' => 'read-write',
      'type' => 'OBJECT-TYPE'
    },
    'pnnixRouteNodeFwdMetric1' => {
      'status' => 'mandatory',
      'description' => '"An alternate routing parameter for the forward direction of
             this route.

             For information learned from PNNI nodes, this is the
             maximum possible cell rate (in cells per second) for the
             forward direction of the route.

             If this parameter is not used, its value should be set to
             0xFFFFFFFF."',
      'syntax' => {
        'type' => 'Gauge'
      },
      'oid' => [
        'pnnixRouteNodeEntry',
        '10'
      ],
      'access' => 'read-write',
      'type' => 'OBJECT-TYPE'
    },
    'pnnixRouteNodeFwdMetric2' => {
      'status' => 'mandatory',
      'description' => '"An alternate routing parameter for the forward direction of
             this route.

             For information learned from PNNI nodes, this is the
             Available cell rate (in cells per second) for the forward
             direction of the route.  Further information on available
             bandwidth may be obtainable by reference to the nodal
             advertisements of the nodes in the path.

             If this parameter is not used, its value should be set to
             0xFFFFFFFF."',
      'syntax' => {
        'type' => 'Gauge'
      },
      'oid' => [
        'pnnixRouteNodeEntry',
        '11'
      ],
      'access' => 'read-write',
      'type' => 'OBJECT-TYPE'
    },
    'pnnixRouteNodeFwdMetric3' => {
      'status' => 'mandatory',
      'description' => '"An alternate routing parameter for the forward direction of
             this route.

             For information learned from PNNI nodes, this is the
             cumulative Maximum Cell Transfer Delay (in microseconds)
             for the forward direction of the route.

             If this parameter is not used, its value should be set to
             0xFFFFFFFF."',
      'syntax' => {
        'type' => 'Gauge'
      },
      'oid' => [
        'pnnixRouteNodeEntry',
        '12'
      ],
      'access' => 'read-write',
      'type' => 'OBJECT-TYPE'
    },
    
##</code><code>##

 my $name = $mib->compile($mib_name);

print Dumper($name);

my @trap = ();

foreach ($name) {
	push @trap, $name->{'nodes'}->{$_};
}