fromHASH_SINGLE.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &fromHASH_SINGLE();}
1;
sub fromHASH_SINGLE {
    print "  =============== FROM HASH ===============\n" if $DEBUG > 0;
    my %H = @_;
    my %RTN;
    my @HKEYS;
    foreach my $hk(sort keys %H) {
        next if ($hk =~ /^${HAG}/);
        print "  DEBUG_fromHASH:KEY=$hk\n" if $DEBUG > 0;
        push(@HKEYS,$hk);
    }