Help for this page
$project{$activeProject}->{components}->{"Software"}->{subComponents}- +>{"Database"}->{label} = "Test-1.01";
sub readItem { my $subDatabase = $project{$activeProject}->{components}->{"Software"} +->{subComponents}->{"Database"}; print "$subDatabase->{label}"; }