Select Code to Download

my $db_hash = do { no strict 'refs'; \%$DB_name };
while (($key,$value) = each %$db_hash) {
   print "\tKey   :: $key\n" ;
   print "\tValue :: $value\n" ;
}

...
my %DBHashLookup = (
...
...
while (($key,$value) = each %$DB_hash) {
...

$param_no = scalar @ARGV ;
#
...
   print "\tValue :: $value\n" ;
}
#