my %pci_ids = {
  "9710", devices => { "NetMos Technology",
    devices => [
    { devid => "7780", devname => "USB IRDA-port" },
    { devid => "9805", devname => "PCI 1 port parallel adapter" },
    { devid => "9815", devname => "PCI 9815 Multi-I/O Controller",
      subinfo => [
	  { subv => "1000", subdev => "0020", subsys =>"2P0S (2 port parallel adaptor)" }
      ]
     },
     { devid => "9835", devname => "PCI 9835 Multi-I/O Controller",
       subinfo => [
       { subv => "1000", subdev =>"0002", subsys =>"2S (16C550 UART)" },
       { subv => "1000", subdev => "0012", subsys => "1P2S" }
       ]
     },
     { devid => "9845", devname => "PCI 9845 Multi-I/O Controller",
       subinfo => [
       { subv => "1000", subdev => "0004", subsys => "0P4S (4 port 16550A serial card)" },
       { subv => "1000", subdev => "0006", subsys =>"0P6S (6 port 16550a serial card)" }
       ]
     },
     { devid => "9855", devname => "PCI 9855 Multi-I/O Controller",
       subinfo => [
       { subv => "1000", subdev => "0014", subsys => "1P4S" }
       ]
     }
    ]
  }
};

##</code><code>##

    my $href;
    for $href (keys %pci_ids) {
       print "Vendor Id: $href:\n";
       print("pci_ids{href}: ", ${$href}{devices}, "\n");
    }