my %DBhashlookup = (
   "TEST"      =>  \%TEST,
   "LIVE"      =>  \%LIVE,
   "DEVLP"     =>  \%DEVLP,
   ) ;