pseudo code:
     master_hash <- empty hash
     while more lines 
     readline
     line contains /^Product\s+(\d+)/?
         temp_hash <- empty_hash
         index_key <- $1 #see capture above
         while in product record
         do
             read line
             throw away if contains /^[\-]+$/
            
             if contains /=/
                split line on '=' 
                key <- field 0 
                value <- field 1 
                temp_hash[key] <- value 
             end if 
         done if line blank
         next if master_hash has $index_key
         master_hash[index_key] <- temp_hash
     done if last line