foreach my $ref (keys %Prod){
    my $hash_ref = $results{$ref};
    foreach my $ofHash ($hash_ref){
    $totaltype{$ofHash}++;
    }
}