#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

my %hash = {
          'debt-1' => {
                            'debt_id' => 10,
                            'mobile' => 11,
                            'address1' => 12
                        },
          'dedt-2' => {
                            'debt_id' => 20,
                            'mobile' => 21,
                            'address1' => 22
                        },
          'debt-3' => {
                            'debt_id' => 30,
                            'mobile' => 31,
                            'address1' => 32
                         },
          'debt-4' => {
                            'debt_id' => 40,
                            'mobile' => 41,
                            'address1' => 42
                        }
        };



##</code><code>##

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

##</code><code>##

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

##</code><code>##

    my $cnt = 1;
    while ( my ($name, $ITEM) = each %hash ){
        print "[ $cnt ] --- $name \n";
        # print Dumper $ITEM;
        my $in_cnt = 1;
        while ( my ($item, $value) = each %{$ITEM}) {
            print "[ $cnt ] --- [ $in_cnt ] --- $item => $value \n";
            # print Dumper $item;
            $in_cnt++;
        }
        $cnt++;
    }


##</code><code>##

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