#!/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
                        }
        };