foreach $key (%$ref){