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

##</code><code>##

C:\>perl -Mstrict -e"@{ shift @ARGV }" blah
Can't use string ("blah") as an ARRAY ref while "strict refs" in use at -e line 1.