while (($key,$value) = each %$DB_name) {
   print "\tKey   :: $key\n" ;
   print "\tValue :: $value\n" ;
}