Print values and keys from hash of hashes.

Select or download this

 
#!/usr/bin/perl -w

...
        };

Select or download this

    print "\n---------------------Top 4 ---------------------\n";
    print Dumper \%hash;
    print "\n---------------------Top 5 ---------------------\n";

Select or download this

---------------------Top 4 ---------------------
$VAR1 = {
          'HASH(0x7fc9b5936d80)' => undef
        };
---------------------Top 5 ---------------------

Select or download this

    my $cnt = 1;
    while ( my ($name, $ITEM) = each %hash ){
...
        $cnt++;
    }

Select or download this

[ 1 ] --- HASH(0x7fc9b5936d80) 
Argument "HASH(0x7fc9b5936d80)"

Select Code to Download