my ($db, $key);
my %DBs = ( "ISWLIVE" => { "LIVE1"  => "/usr/local/bin",
                           "LIVE2"  => "whatever" },

            "Next DB" => { "LIVE1"  => "/usr/local/bin",
                           "LIVE2"  => "whatever" } );

            # etc. for all your DB's and key/values

##</code><code>##

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
    }
}