Select Code to Download

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

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

foreach $db ( sort keys %DBs ) {

...
        # do whatever processing you want
    }
}