foreach $db ( sort keys %DBs ) {

    foreach $key ( sort keys %{ $DBs{$db} } ) {

        printf "DB = %s, key = %s, value = %s\n",
            $db, $key, $DBs{$db}->{$key};

        # do whatever processing you want
    }
}