my (%compdata, $comp, $file, @srcfiles);
for (@data) {
  my ($key, $value) = split /=/;
  for ($key) {
    /component/  && do { $comp = $value; last };
    /version/    && do { $compdata{$comp}{version} = $value; last };
    /sourcefile/ && do 
    { 
        $file = $value; 
        push  (@($compdata{$comp}{$srcfiles}), $value); # <<WRONG
        last 
    };
    /sourcesum/  && do { $compdata{$comp}{sources}{$file} = $value };
  }
}