Select Code to Download

$VAR1 = {
          'component1' => {
...
                            'id' => '014'
                          }
        };

%component_tree = (
  component1 => [
...
    { name => 'command8', id => '014' },
  ],
);

for my $comp (keys %component_tree)
{
...
        print "    Found ", $data->{name}, " (id [", $data->{id}, "])\
+n";
    }
}

Checking component1...
    Found command1 (id [001])
...
    Found command6 (id [012])
    Found command7 (id [013])
    Found command8 (id [014])