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