Thank you for the Perl data structure cookbook. Your code did not work but it sure gave me a place to look how to solve this.
Since this was nested I needed to refrence it with arrows. Thanks so much for your help. I am bookmarking this link too.
Here is the code that worked.