All the keys in each hash are the same so couldn't you do the following:

foreach (keys %hash1) {
   ...  # here you would use $_ as the variable for the keys
}
[download]

This eliminates the creation of the @keys and $key variables. Hope that helps.

Zenon Zabinski | zdog | zdog7@hotmail.com