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