REPLACE
	$HoH{$component}{'sources'}{$key} = $value;

WITH
	push( @{ $HoH{$component}{'sources'} }, [$key,$value] );

THEN ACCESS
    for my $source ( @{ $sources } ) {
         print "$source->[0] = $source->[1]\n";
    }