my $sql = 'SELECT datname FROM pg_database';
my @databases
    = map { $_->[0] } @{ $dbh->selectall_arrayref( $sql ) };