Restructure your data so you have:

%device_info = (
  device1 => { version => '1.4', module => [1, 2, 3], memory => '18k' 
+},
  device2 => { version => '1.4', module => [4,5,6], memory => '25k' },
  device3 => { version => '1.2', module => [7,8,9], memory => '18k' },
);
[download]

Then it's easy to do operations in parallel. Having upside-down data structures is nasty.

-- Randal L. Schwartz, Perl hacker