Dim mp1 As Map
mp1.Initialize
mp1.Put("c1", 6)
mp1.Put("c2", 17)
mp1.Put("c3", 25)
mp1.Put("c4", 15)
mp1.Put("c5", 2)
Dim mp2 As Map
mp2.Initialize
mp2.Put("AAAAA", 43)
mp2.Put("BBBBB", 100)
mp2.Put("CCCCC", 12)
mp2.Put("DDDDD", 6)
Dim lookup As Map = CreateMap("AAAAA": "c1", "BBBBB": "c2", "CCCCC": "c3", "DDDDD": "something else")
For Each k As String In mp2.Keys
Dim matchingKey As String = lookup.GetDefault(k, "N/A")
Log(mp2.GetDefault(k, 0/0) / mp1.GetDefault(matchingKey, 0/0))
Next