You might be seeing things that *look* the same, but I'm pretty sure they aren't :-)

Try this:

use Data::Dumper;
print Dumper([keys %DATABASE]);
[download]

Does it have duplicate values inside? If so, tell us what those values are.