use Data::Dumper;
die Data::Dumper->new([\@databases])->Indent(1)->Dump();