#!/usr/bin/perl

use strict;

sub sub1 {
    print "In sub1\n";
}

sub sub2 {
    print "In sub2\n";
}

sub sub3 {
    print "In sub3\n";
}

sub MergeHashes {
    my ($hr1, $hr2) = @_;
    my (%retval, $nkey, $key);

    print "hr1 = $hr1, hr2 = $hr2\n";
    foreach $key (keys %{$hr2}){
	$retval{$key} = $$hr2{$key};
    }

    foreach $key (keys %$hr1){
	if (!defined($retval{$key})){
	    $retval{$key} = $$hr1{$key};
	}
    }
    
    \%retval;
}

sub showhash {
    my ($hr, $hn) = @_;
    my %hash = %$hr;
    my @subs;

    no strict;

    return if ($checked{$hr});
    $checked{$hr} = 1;
    my $symname;
    foreach $symname (sort keys %hash){
	local *sym = $hash{$symname};


	if (@sym){
	    push(@subs, "array $symname");
	} elsif (%sym){
	    push(@subs, "hash $symname");
	    showhash(\%sym, $symname);
	} elsif (defined(&sym)){
	    push(@subs, "sub $symname");
	} else {
	    push(@subs, "var $symname");
	}

    }
    if (scalar @subs){
	print "Package $hn => ";
	foreach $symname (sort @subs){
	    print "\t", $symname, "\n";
	}
    }
}

my %hash = (
	    h1 => {
		a => "A",
		c => "C",
		e => "E",
		g => undef,
		i => undef,
	    },

	    h2 => {
		a => "A2",
		b => "B",
		d => "D",
		g => "G2",
		h => undef,
	    }
	    );

showhash(\%main::, "%main::");