use Data::Dumper;
$Data::Dumper::Indent=1;
$Data::Dumper::Useqq=1;
die Dumper( \%DATABASE );