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